fixes #1513

rspatial · May 21, 2024 · b7a869c · b7a869c
1 parent b680133
commit b7a869c
Showing 1 changed file with 12 additions and 4 deletions.
diff --git a/R/coerce.R b/R/coerce.R
@@ -167,21 +167,29 @@ as.list.SpatRaster <- function(x, geom=NULL, ...) {
 		lapply(1:nlyr(x), function(i) x[[i]])
 	}
 }
-
 setMethod("as.list", signature(x="SpatRaster"), as.list.SpatRaster)
 
+
 as.list.SpatRasterCollection <- function(x, ...) {
-	lapply(1:length(x), function(i) x[i])
+	out <- lapply(1:length(x), function(i) x[i])
+	names(out) <- names(x)
+	out
 }
 setMethod("as.list", signature(x="SpatRasterCollection"), as.list.SpatRasterCollection)
 
+
 as.list.SpatRasterDataset <- function(x, ...) {
-	lapply(1:length(x), function(i) x[i])
+	out <- lapply(1:length(x), function(i) x[i])
+	names(out) <- names(x)
+	out
 }
 setMethod("as.list", signature(x="SpatRasterDataset"), as.list.SpatRasterDataset)
 
+
 as.list.SpatVectorCollection <- function(x, ...) {
-	lapply(1:length(x), function(i) x[i])
+	out <- lapply(1:length(x), function(i) x[i])
+	names(out) <- names(x)
+	out
 }
 setMethod("as.list", signature(x="SpatVectorCollection"), as.list.SpatVectorCollection)