add comment

douwe · douwe · commit 7aff807f7465 · 2025-04-22T08:50:23.000+02:00
diff --git a/R/read.R b/R/read.R
@@ -252,6 +252,7 @@ read_data <- function(drfile, guide, checkname = FALSE) {
       rlang::abort(glue::glue("Unsupported location type: {location$type}"))
     )
 
+    # The default atomic class is "character"
     atomicclass <- if (!is.null(location$atomicclass)) location$atomicclass else "character"
 
     # Read data using the appropriate function

Original file line number	Diff line number	Diff line change
`@@ -252,6 +252,7 @@ read_data <- function(drfile, guide, checkname = FALSE) {`
`252`	`252`	`rlang::abort(glue::glue("Unsupported location type: {location$type}"))`
`253`	`253`	`)`
`254`	`254`
	`255`	`+ # The default atomic class is "character"`
`255`	`256`	`atomicclass <- if (!is.null(location$atomicclass)) location$atomicclass else "character"`
`256`	`257`
`257`	`258`	`# Read data using the appropriate function`