don't overwrite options() on package load

njtierney · Mar 21, 2024 · f2cfe64 · f2cfe64
1 parent b279a01
commit f2cfe64
Show file tree

Hide file tree

Showing 4 changed files with 22 additions and 8 deletions.
diff --git a/R/AAAA.R b/R/AAAA.R
@@ -1,9 +1,9 @@
-# geotargets.env <- new.env()
+# geotargets.env <- new.env(parent = emptyenv())
 #
 # geotargets_env <- function() {
 # geotargets.env
 # }
 
-.onAttach <- function(lib, pkg) {
- geotargets_option_set()
-}
+# .onAttach <- function(lib, pkg) {
+#  geotargets_option_set()
+# }
diff --git a/R/tar-terra-rast.R b/R/tar-terra-rast.R
@@ -49,6 +49,9 @@ tar_terra_rast <- function(name,
  retrieval = targets::tar_option_get("retrieval"),
  cue = targets::tar_option_get("cue")) {
 
+ filetype <- filetype %||% "GTiff"
+ gdal <- gdal %||% "ENCODING=UTF-8"
+
  name <- targets::tar_deparse_language(substitute(name))
 
  envir <- targets::tar_option_get("envir")

diff --git a/R/tar-terra-vect.R b/R/tar-terra-vect.R
@@ -57,6 +57,10 @@ tar_terra_vect <- function(name,
  storage = targets::tar_option_get("storage"),
  retrieval = targets::tar_option_get("retrieval"),
  cue = targets::tar_option_get("cue")) {
+
+ filetype <- filetype %||% "GeoJSON"
+ gdal <- gdal %||% "ENCODING=UTF-8"
+
  name <- targets::tar_deparse_language(substitute(name))
 
  envir <- targets::tar_option_get("envir")

diff --git a/man/geotargets-options.Rd b/man/geotargets-options.Rd