pass gdal opts down to writeRaster (fix for #93)

njtierney · Sep 11, 2024 · f9db9c9 · f9db9c9
1 parent 153682a
commit f9db9c9
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/R/tar-terra-sprc.R b/R/tar-terra-sprc.R
@@ -307,6 +307,11 @@ format_terra_collections <- function(type = c("sprc", "sds")) {
  "sds" = function(path) terra::sds(path)
  ),
  write = function(object, path) {
+ gdal <- strsplit(
+ Sys.getenv("GEOTARGETS_GDAL_RASTER_CREATION_OPTIONS",
+ unset = ";"),
+ ";")[[1]]
+
  for (i in seq(object)) {
  if (i > 1) {
  opt <- "APPEND_SUBDATASET=YES"
@@ -318,7 +323,7 @@ format_terra_collections <- function(type = c("sprc", "sds")) {
  filename = path,
  filetype = Sys.getenv("GEOTARGETS_GDAL_RASTER_DRIVER"),
  overwrite = (i == 1),
- gdal = opt
+ gdal = c(opt, gdal)
  )
  }
  },