fix for NULL layer (default)

brownag · brownag · commit 0608d6b1de5c · 2025-09-26T12:10:34.000-07:00
diff --git a/R/wbt_source.R b/R/wbt_source.R
@@ -31,7 +31,7 @@ wbt_source <- function(x,
           stop("package `terra` is required to convert non-Shapefile vector sources to Shapefile")
         }
 
-        x2 <- terra::vect(x, layer = layer)
+        x2 <- terra::vect(x, layer = ifelse(is.null(layer), "", layer))
         if (terra::writeVector(x2, fp)) {
           x <- fp
         } else {

Original file line number	Diff line number	Diff line change
`@@ -31,7 +31,7 @@ wbt_source <- function(x,`
`31`	`31`	stop("package `terra` is required to convert non-Shapefile vector sources to Shapefile")
`32`	`32`	`}`
`33`	`33`
`34`		`- x2 <- terra::vect(x, layer = layer)`
	`34`	`+ x2 <- terra::vect(x, layer = ifelse(is.null(layer), "", layer))`
`35`	`35`	`if (terra::writeVector(x2, fp)) {`
`36`	`36`	`x <- fp`
`37`	`37`	`} else {`