md

rspatial · Jan 27, 2023 · f2f4007 · f2f4007
1 parent 7f4dde7
commit f2f4007
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/R/generics.R b/R/generics.R
@@ -14,11 +14,14 @@ setMethod("rangeFill", signature(x="SpatRaster"),
 
 setMethod("metadata", signature(x="SpatRaster"),
 	function(x) {
-		x <- x@ptr$metadata
 		f <- function(i) {
-			matrix(unlist(regmatches(i, regexpr("=", i), invert=TRUE)), ncol=2, byrow=TRUE)
+			if (length(i) == 0) {
+				matrix(ncol=2, nrow=0)
+			} else {
+				matrix(unlist(regmatches(i, regexpr("=", i), invert=TRUE)), ncol=2, byrow=TRUE)
+			}
 		}
-		lapply(x, f)
+		lapply(x@ptr$metadata, f)
 	}
 )