repair atomic class

douwe · douwe · commit 2094f8e0dd99 · 2025-04-22T08:37:42.000+02:00
diff --git a/R/read.R b/R/read.R
@@ -252,7 +252,7 @@ read_data <- function(drfile, guide, checkname = FALSE) {
       rlang::abort(glue::glue("Unsupported location type: {location$type}"))
     )
 
-    atomicclass <- location$atomicclass %||% "character"
+    atomicclass <- if (!is.null(location$atomicclass)) location$atomicclass else "character"
 
     # Read data using the appropriate function
     chunk <- if (location$type == "cells") {

Original file line number	Diff line number	Diff line change
`@@ -252,7 +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`		`- atomicclass <- location$atomicclass %\|\|% "character"`
	`255`	`+ atomicclass <- if (!is.null(location$atomicclass)) location$atomicclass else "character"`
`256`	`256`
`257`	`257`	`# Read data using the appropriate function`
`258`	`258`	`chunk <- if (location$type == "cells") {`