fix as.raster bug

Artur-man · Artur-man · commit 39398e4a1768 · 2025-11-01T00:05:44.000+01:00
diff --git a/R/conversion.R b/R/conversion.R
@@ -57,7 +57,7 @@ setMethod(
         n.levels <- length(x@levels)
         if (n.levels > 1) {
           for (i in 2:n.levels) {
-            dim_img <- dim(x[[i]])
+            dim_img <- stats::setNames(dim(x[[i]]), ax)
             if (min.pixel.size > max(rev(dim_img)[c("x", "y")])) {
               return(S4Arrays::as.array.Array(x[[i - 1]]))
             }

Original file line number	Diff line number	Diff line change
`@@ -57,7 +57,7 @@ setMethod(`
`57`	`57`	`n.levels <- length(x@levels)`
`58`	`58`	`if (n.levels > 1) {`
`59`	`59`	`for (i in 2:n.levels) {`
`60`		`- dim_img <- dim(x[[i]])`
	`60`	`+ dim_img <- stats::setNames(dim(x[[i]]), ax)`
`61`	`61`	`if (min.pixel.size > max(rev(dim_img)[c("x", "y")])) {`
`62`	`62`	`return(S4Arrays::as.array.Array(x[[i - 1]]))`
`63`	`63`	`}`