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)
                 )
             }
         },