Update vapour_vrt.R

mdsumner · web-flow · commit 8f7ff671e055 · 2025-06-24T13:58:32.000+10:00
use stringr instead of gsub
diff --git a/R/vapour_vrt.R b/R/vapour_vrt.R
@@ -156,7 +156,7 @@ vapour_vrt <- function(x, extent = NULL, projection = NULL,  sds = 1L, bands = N
   out <- raster_vrt_cpp(x, extent, projection[1L], sds, bands, geolocation, nomd, overview, options)
   ## scrub any transform, because of #210
   if (nzchar(geolocation[1L])) {
-    out <- gsub("<GeoTransform.*GeoTransform>", "", out)
+    out <- stringr::str_replace(out, "<GeoTransform.*GeoTransform>", "")
   }
   out
 }

Original file line number	Diff line number	Diff line change
`@@ -156,7 +156,7 @@ vapour_vrt <- function(x, extent = NULL, projection = NULL, sds = 1L, bands = N`
`156`	`156`	`out <- raster_vrt_cpp(x, extent, projection[1L], sds, bands, geolocation, nomd, overview, options)`
`157`	`157`	`## scrub any transform, because of #210`
`158`	`158`	`if (nzchar(geolocation[1L])) {`
`159`		`- out <- gsub("<GeoTransform.*GeoTransform>", "", out)`
	`159`	`+ out <- stringr::str_replace(out, "<GeoTransform.*GeoTransform>", "")`
`160`	`160`	`}`
`161`	`161`	`out`
`162`	`162`	`}`