From ceddcf6d4e8454c8a580447f0ea3402bdaa503fc Mon Sep 17 00:00:00 2001 From: Andrew Gene Brown Date: Tue, 12 Mar 2024 21:14:27 -0700 Subject: [PATCH 01/10] Add `geotargets_get_option()` and `geotargets_set_option()` --- NAMESPACE | 2 ++ R/AAAA.R | 10 +++++++ R/geotargets-option.R | 50 +++++++++++++++++++++++++++++++++ man/geotargets-options.Rd | 33 ++++++++++++++++++++++ tests/testthat/test-tar-terra.R | 1 + 5 files changed, 96 insertions(+) create mode 100644 R/AAAA.R create mode 100644 R/geotargets-option.R create mode 100644 man/geotargets-options.Rd diff --git a/NAMESPACE b/NAMESPACE index 822d790..c3b87e1 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -1,5 +1,7 @@ # Generated by roxygen2: do not edit by hand +export(geotargets_option_get) +export(geotargets_option_set) export(tar_terra_rast) export(tar_terra_vect) importFrom(utils,globalVariables) diff --git a/R/AAAA.R b/R/AAAA.R new file mode 100644 index 0000000..07cd632 --- /dev/null +++ b/R/AAAA.R @@ -0,0 +1,10 @@ +geotargets.env <- new.env() + +geotargets_env <- function() { + geotargets.env +} + +.onAttach <- function(lib, pkg) { + geotargets.env$geotargets.raster.gdal_creation_options <- "ENCODING=UTF-8" + geotargets.env$geotargets.raster.gdal_driver_name <- "GTiff" +} diff --git a/R/geotargets-option.R b/R/geotargets-option.R new file mode 100644 index 0000000..fc5be77 --- /dev/null +++ b/R/geotargets-option.R @@ -0,0 +1,50 @@ +#' Get or Set geotargets Options +#' +#' Get or set behavior for geospatial data target stores using geotargets-specific global options. +#' +#' @param x Character. Option name. See Details. +#' +#' @details +#' +#' ## Available Options +#' +#' - `"geotargets.raster.gdal_creation_options"` - set the GDAL creation options used when writing raster files to target store (default: `"ENCODING=UTF-8"`) +#' +#' - `"geotargets.raster.gdal_driver_name"` - set the file type used for raster data in target store (default: `"GTiff"`) +#' +#' Each option can be overridden with a system environment variable. Options include: +#' +#' - `GEOTARGETS_RASTER_GDAL_CREATION_OPTIONS` +#' - `GEOTARGETS_RASTER_GDAL_DRIVER_NAME` +#' +#' @rdname geotargets-options +#' @export +geotargets_option_get <- function(x) { + if (!startsWith(x, "geotargets.")) { + x <- paste0("geotargets.", x) + } + + value <- geotargets_env()[[x]] + + switch(x, + "geotargets.raster.gdal_creation_options" = { + strsplit(Sys.getenv("GEOTARGETS_RASTER_GDAL_CREATION_OPTIONS", + unset = getOption(x, default = ifelse(is.null(value), "ENCODING=UTF-8", value))), + ";")[[1]] + }, + "geotargets.raster.gdal_driver_name" = { + Sys.getenv("GEOTARGETS_RASTER_GDAL_DRIVER_NAME", + unset = getOption(x, default = ifelse(is.null(value), "GTiff", value)) + ) + }) +} + +#' @param value Value to assign to option `x`. +#' @rdname geotargets-options +#' @export +geotargets_option_set <- function(x, value) { + if (!startsWith(x, "geotargets.")) { + x <- paste0("geotargets.", x) + } + geotargets.env[[x]] <- value +} diff --git a/man/geotargets-options.Rd b/man/geotargets-options.Rd new file mode 100644 index 0000000..270140f --- /dev/null +++ b/man/geotargets-options.Rd @@ -0,0 +1,33 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/geotargets-option.R +\name{geotargets_option_get} +\alias{geotargets_option_get} +\alias{geotargets_option_set} +\title{Get or Set geotargets Options} +\usage{ +geotargets_option_get(x) + +geotargets_option_set(x, value) +} +\arguments{ +\item{x}{Character. Option name. See Details.} + +\item{value}{Value to assign to option \code{x}.} +} +\description{ +Get or set behavior for geospatial data target stores using geotargets-specific global options. +} +\details{ +\subsection{Available Options}{ +\itemize{ +\item \code{"geotargets.raster.gdal_creation_options"} - set the GDAL creation options used when writing raster files to target store (default: \code{"ENCODING=UTF-8"}) +\item \code{"geotargets.raster.gdal_driver_name"} - set the file type used for raster data in target store (default: \code{"GTiff"}) +} + +Each option can be overridden with a system environment variable. Options include: +\itemize{ +\item \code{GEOTARGETS_RASTER_GDAL_CREATION_OPTIONS} +\item \code{GEOTARGETS_RASTER_GDAL_DRIVER_NAME} +} +} +} diff --git a/tests/testthat/test-tar-terra.R b/tests/testthat/test-tar-terra.R index 45898e2..5c9d587 100644 --- a/tests/testthat/test-tar-terra.R +++ b/tests/testthat/test-tar-terra.R @@ -1,5 +1,6 @@ # test_that() #Included to make RStudio recognize this file as a test targets::tar_test("tar_terra_rast() works", { + geotargets::geotargets_option_set("raster_gdal_creation_options", c("COMPRESS=DEFLATE", "TFW=YES")) targets::tar_script({ list( geotargets::tar_terra_rast( From 0641219fe6c2c539f4bf439134964cc7b592012a Mon Sep 17 00:00:00 2001 From: Andrew Gene Brown Date: Tue, 12 Mar 2024 21:15:14 -0700 Subject: [PATCH 02/10] create_format_terra_raster: use `geotargets_option_get()` for `filetype` and `gdal` --- R/tar-terra-rast.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/tar-terra-rast.R b/R/tar-terra-rast.R index c42704a..59d8c32 100644 --- a/R/tar-terra-rast.R +++ b/R/tar-terra-rast.R @@ -117,9 +117,9 @@ create_format_terra_raster <- function(filetype, gdal, ...) { terra::writeRaster( object, path, - filetype = NULL, + filetype = geotargets::geotargets_option_get("raster.gdal_driver_name"), overwrite = TRUE, - gdal = NULL + gdal = geotargets::geotargets_option_get("raster.gdal_creation_options") ) } body(.write_terra_raster)[[2]][["filetype"]] <- filetype From 5b71a2afaa096dbcbb06481d6ab498734b9bba50 Mon Sep 17 00:00:00 2001 From: Andrew Gene Brown Date: Tue, 12 Mar 2024 22:24:10 -0700 Subject: [PATCH 03/10] Apply option for null conditions --- R/tar-terra-rast.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/R/tar-terra-rast.R b/R/tar-terra-rast.R index 59d8c32..3b7775f 100644 --- a/R/tar-terra-rast.R +++ b/R/tar-terra-rast.R @@ -65,11 +65,11 @@ tar_terra_rast <- function(name, # could pull defaults from geotargets package options if (is.null(filetype)) { - filetype <- "GTiff" + filetype <- geotargets::geotargets_option_get("raster.gdal_driver_name") } if (is.null(gdal)) { - gdal <- "ENCODING=UTF-8" + gdal <- geotargets::geotargets_option_get("raster.gdal_creation_options") } targets::tar_target_raw( @@ -108,7 +108,7 @@ create_format_terra_raster <- function(filetype, gdal, ...) { drv <- drv[drv$type == "raster" & grepl("write", drv$can), ] if (is.null(filetype)) { - filetype <- "GTiff" + filetype <- geotargets::geotargets_option_get("raster.gdal_driver_name") } filetype <- match.arg(filetype, drv$name) From 353b69974bdf3f8e12aa23d778f098b6f1805d81 Mon Sep 17 00:00:00 2001 From: njtierney Date: Wed, 13 Mar 2024 13:45:39 +1100 Subject: [PATCH 04/10] fix code coverage using instructions from codecov --- .github/workflows/test-coverage.yaml | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/.github/workflows/test-coverage.yaml b/.github/workflows/test-coverage.yaml index 21b8a93..bb763cc 100644 --- a/.github/workflows/test-coverage.yaml +++ b/.github/workflows/test-coverage.yaml @@ -42,9 +42,8 @@ jobs: find '${{ runner.temp }}/package' -name 'testthat.Rout*' -exec cat '{}' \; || true shell: bash - - name: Upload test results - if: failure() - uses: actions/upload-artifact@v4 + - name: Upload coverage reports to Codecov + uses: codecov/codecov-action@v4.0.1 with: - name: coverage-test-failures - path: ${{ runner.temp }}/package + token: ${{ secrets.CODECOV_TOKEN }} + slug: njtierney/geotargets From d1dbb36d4b0e6634a5ec54011727c1cbd1fb2354 Mon Sep 17 00:00:00 2001 From: Andrew Gene Brown Date: Wed, 13 Mar 2024 07:31:24 -0700 Subject: [PATCH 05/10] Import rlang for #20 - use `%||%` and `arg_match0() `in `tar_terra_rast()` --- DESCRIPTION | 1 + NAMESPACE | 2 ++ R/tar-terra-rast.R | 28 +++++++++++++--------------- 3 files changed, 16 insertions(+), 15 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index ab2f53d..93fa945 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -32,6 +32,7 @@ Language: en-GB Roxygen: list(markdown = TRUE) RoxygenNote: 7.3.1 Imports: + rlang, targets, terra Suggests: diff --git a/NAMESPACE b/NAMESPACE index c3b87e1..4532f2e 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -4,4 +4,6 @@ export(geotargets_option_get) export(geotargets_option_set) export(tar_terra_rast) export(tar_terra_vect) +importFrom(rlang,"%||%") +importFrom(rlang,arg_match0) importFrom(utils,globalVariables) diff --git a/R/tar-terra-rast.R b/R/tar-terra-rast.R index 3b7775f..7a8adc7 100644 --- a/R/tar-terra-rast.R +++ b/R/tar-terra-rast.R @@ -7,7 +7,7 @@ #' @param ... Additional arguments not yet used #' #' @inheritParams targets::tar_target -#' +#' @importFrom rlang %||% arg_match0 #' @seealso [targets::tar_target_raw()] #' @export #' @examples @@ -63,14 +63,9 @@ tar_terra_rast <- function(name, tidy_eval = tidy_eval ) - # could pull defaults from geotargets package options - if (is.null(filetype)) { - filetype <- geotargets::geotargets_option_get("raster.gdal_driver_name") - } - - if (is.null(gdal)) { - gdal <- geotargets::geotargets_option_get("raster.gdal_creation_options") - } + # if not specified by user, pull the corresponding geotargets option + filetype <- filetype %||% geotargets_option_get("raster.gdal_driver_name") + gdal <- gdal %||% geotargets_option_get("raster.gdal_creation_options") targets::tar_target_raw( name = name, @@ -107,21 +102,24 @@ create_format_terra_raster <- function(filetype, gdal, ...) { drv <- terra::gdal(drivers = TRUE) drv <- drv[drv$type == "raster" & grepl("write", drv$can), ] - if (is.null(filetype)) { - filetype <- geotargets::geotargets_option_get("raster.gdal_driver_name") - } + filetype <- filetype %||% geotargets_option_get("raster.gdal_driver_name") + filetype <- rlang::arg_match0(filetype, drv$name) - filetype <- match.arg(filetype, drv$name) + gdal <- gdal %||% geotargets_option_get("raster.gdal_creation_options") + # NOTE: Option getting functions are set in the .write_terra_raster function template + # to resolve issue with body<- not working in some evaluation contexts ({covr}). + # TODO: It should be fine to have filetype and gdal as NULL .write_terra_raster <- function(object, path) { terra::writeRaster( object, path, - filetype = geotargets::geotargets_option_get("raster.gdal_driver_name"), + filetype = geotargets_option_get("raster.gdal_driver_name"), overwrite = TRUE, - gdal = geotargets::geotargets_option_get("raster.gdal_creation_options") + gdal = geotargets_option_get("raster.gdal_creation_options") ) } + body(.write_terra_raster)[[2]][["filetype"]] <- filetype body(.write_terra_raster)[[2]][["gdal"]] <- gdal From f634c301432549d20f9da928ba9771839828fe90 Mon Sep 17 00:00:00 2001 From: Andrew Gene Brown Date: Wed, 13 Mar 2024 07:39:02 -0700 Subject: [PATCH 06/10] geotargets:: is required inside tar_format() write function body - RE: https://github.com/njtierney/geotargets/pull/19#discussion_r1522577808 --- R/tar-terra-rast.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/tar-terra-rast.R b/R/tar-terra-rast.R index 7a8adc7..d5d005b 100644 --- a/R/tar-terra-rast.R +++ b/R/tar-terra-rast.R @@ -114,9 +114,9 @@ create_format_terra_raster <- function(filetype, gdal, ...) { terra::writeRaster( object, path, - filetype = geotargets_option_get("raster.gdal_driver_name"), + filetype = geotargets::geotargets_option_get("raster.gdal_driver_name"), overwrite = TRUE, - gdal = geotargets_option_get("raster.gdal_creation_options") + gdal = geotargets::geotargets_option_get("raster.gdal_creation_options") ) } From 827de6afe3b80e24afd4f555ed6a7513a27df235 Mon Sep 17 00:00:00 2001 From: Andrew Gene Brown Date: Wed, 13 Mar 2024 07:39:43 -0700 Subject: [PATCH 07/10] geotargets_option_get/set: Update argument names --- R/geotargets-option.R | 26 +++++++++++++------------- man/geotargets-options.Rd | 8 ++++---- 2 files changed, 17 insertions(+), 17 deletions(-) diff --git a/R/geotargets-option.R b/R/geotargets-option.R index fc5be77..696d5ec 100644 --- a/R/geotargets-option.R +++ b/R/geotargets-option.R @@ -2,7 +2,7 @@ #' #' Get or set behavior for geospatial data target stores using geotargets-specific global options. #' -#' @param x Character. Option name. See Details. +#' @param option_name Character. Option name. See Details. #' #' @details #' @@ -19,32 +19,32 @@ #' #' @rdname geotargets-options #' @export -geotargets_option_get <- function(x) { - if (!startsWith(x, "geotargets.")) { - x <- paste0("geotargets.", x) +geotargets_option_get <- function(option_name) { + if (!startsWith(option_name, "geotargets.")) { + option_name <- paste0("geotargets.", option_name) } - value <- geotargets_env()[[x]] + option_value <- geotargets_env()[[option_name]] - switch(x, + switch(option_name, "geotargets.raster.gdal_creation_options" = { strsplit(Sys.getenv("GEOTARGETS_RASTER_GDAL_CREATION_OPTIONS", - unset = getOption(x, default = ifelse(is.null(value), "ENCODING=UTF-8", value))), + unset = getOption(option_name, default = ifelse(is.null(option_value), "ENCODING=UTF-8", option_value))), ";")[[1]] }, "geotargets.raster.gdal_driver_name" = { Sys.getenv("GEOTARGETS_RASTER_GDAL_DRIVER_NAME", - unset = getOption(x, default = ifelse(is.null(value), "GTiff", value)) + unset = getOption(option_name, default = ifelse(is.null(option_value), "GTiff", option_value)) ) }) } -#' @param value Value to assign to option `x`. +#' @param option_value Value to assign to option `x`. #' @rdname geotargets-options #' @export -geotargets_option_set <- function(x, value) { - if (!startsWith(x, "geotargets.")) { - x <- paste0("geotargets.", x) +geotargets_option_set <- function(option_name, option_value) { + if (!startsWith(option_name, "geotargets.")) { + option_name <- paste0("geotargets.", option_name) } - geotargets.env[[x]] <- value + geotargets.env[[option_name]] <- option_value } diff --git a/man/geotargets-options.Rd b/man/geotargets-options.Rd index 270140f..b79777f 100644 --- a/man/geotargets-options.Rd +++ b/man/geotargets-options.Rd @@ -5,14 +5,14 @@ \alias{geotargets_option_set} \title{Get or Set geotargets Options} \usage{ -geotargets_option_get(x) +geotargets_option_get(option_name) -geotargets_option_set(x, value) +geotargets_option_set(option_name, option_value) } \arguments{ -\item{x}{Character. Option name. See Details.} +\item{option_name}{Character. Option name. See Details.} -\item{value}{Value to assign to option \code{x}.} +\item{option_value}{Value to assign to option \code{x}.} } \description{ Get or set behavior for geospatial data target stores using geotargets-specific global options. From 884513b3fb9d87fb8d40bc1b230fb4b772c7cbdd Mon Sep 17 00:00:00 2001 From: Andrew Gene Brown Date: Wed, 13 Mar 2024 07:42:57 -0700 Subject: [PATCH 08/10] Abstract option-get logic - for https://github.com/njtierney/geotargets/pull/19#discussion_r1522572137 --- R/geotargets-option.R | 35 +++++++++++++++++++++++++---------- 1 file changed, 25 insertions(+), 10 deletions(-) diff --git a/R/geotargets-option.R b/R/geotargets-option.R index 696d5ec..96f2395 100644 --- a/R/geotargets-option.R +++ b/R/geotargets-option.R @@ -26,17 +26,32 @@ geotargets_option_get <- function(option_name) { option_value <- geotargets_env()[[option_name]] + get_option <- function(option_name, option_value, name){ + getOption(option_name, default = option_value %||% name) + } + + get_geotargets_raster_gdal_creation_options <- function(option_name, option_value) { + gdal_creation_options <- Sys.getenv( + x = "GEOTARGETS_RASTER_GDAL_CREATION_OPTIONS", + unset = get_option(option_name, option_value, "ENCODING=UTF-8") + ) + the_option <- strsplit(gdal_creation_options, ";")[[1]] + the_option + } + + get_geotargets_raster_gdal_driver_name <- function(option_name, option_value) { + Sys.getenv( + x = "GEOTARGETS_RASTER_GDAL_DRIVER_NAME", + unset = get_option(option_name, option_value, "GTiff") + ) + } + switch(option_name, - "geotargets.raster.gdal_creation_options" = { - strsplit(Sys.getenv("GEOTARGETS_RASTER_GDAL_CREATION_OPTIONS", - unset = getOption(option_name, default = ifelse(is.null(option_value), "ENCODING=UTF-8", option_value))), - ";")[[1]] - }, - "geotargets.raster.gdal_driver_name" = { - Sys.getenv("GEOTARGETS_RASTER_GDAL_DRIVER_NAME", - unset = getOption(option_name, default = ifelse(is.null(option_value), "GTiff", option_value)) - ) - }) + "geotargets.raster.gdal_creation_options" = + get_geotargets_raster_gdal_creation_options(option_name, option_value), + "geotargets.raster.gdal_driver_name" = + get_geotargets_raster_gdal_driver_name(option_name, option_value) + ) } #' @param option_value Value to assign to option `x`. From 8b8cb7f2142dc326802c35737decd7766b916023 Mon Sep 17 00:00:00 2001 From: Andrew Gene Brown Date: Wed, 13 Mar 2024 07:48:50 -0700 Subject: [PATCH 09/10] Rename options (gdal prefix first) - RE: https://github.com/njtierney/geotargets/pull/19#discussion_r1522594423 --- R/geotargets-option.R | 24 ++++++++++++------------ R/tar-terra-rast.R | 8 ++++---- man/geotargets-options.Rd | 8 ++++---- 3 files changed, 20 insertions(+), 20 deletions(-) diff --git a/R/geotargets-option.R b/R/geotargets-option.R index 96f2395..22c0bad 100644 --- a/R/geotargets-option.R +++ b/R/geotargets-option.R @@ -8,14 +8,14 @@ #' #' ## Available Options #' -#' - `"geotargets.raster.gdal_creation_options"` - set the GDAL creation options used when writing raster files to target store (default: `"ENCODING=UTF-8"`) +#' - `"geotargets.gdal.raster.creation_options"` - set the GDAL creation options used when writing raster files to target store (default: `"ENCODING=UTF-8"`) #' -#' - `"geotargets.raster.gdal_driver_name"` - set the file type used for raster data in target store (default: `"GTiff"`) +#' - `"geotargets.gdal.raster.driver_name"` - set the file type used for raster data in target store (default: `"GTiff"`) #' #' Each option can be overridden with a system environment variable. Options include: #' -#' - `GEOTARGETS_RASTER_GDAL_CREATION_OPTIONS` -#' - `GEOTARGETS_RASTER_GDAL_DRIVER_NAME` +#' - `GEOTARGETS_GDAL_RASTER_CREATION_OPTIONS` +#' - `GEOTARGETS_GDAL_RASTER_DRIVER_NAME` #' #' @rdname geotargets-options #' @export @@ -30,27 +30,27 @@ geotargets_option_get <- function(option_name) { getOption(option_name, default = option_value %||% name) } - get_geotargets_raster_gdal_creation_options <- function(option_name, option_value) { + get_geotargets_gdal_raster_creation_options <- function(option_name, option_value) { gdal_creation_options <- Sys.getenv( - x = "GEOTARGETS_RASTER_GDAL_CREATION_OPTIONS", + x = "GEOTARGETS_GDAL_RASTER_CREATION_OPTIONS", unset = get_option(option_name, option_value, "ENCODING=UTF-8") ) the_option <- strsplit(gdal_creation_options, ";")[[1]] the_option } - get_geotargets_raster_gdal_driver_name <- function(option_name, option_value) { + get_geotargets_gdal_raster_driver_name <- function(option_name, option_value) { Sys.getenv( - x = "GEOTARGETS_RASTER_GDAL_DRIVER_NAME", + x = "GEOTARGETS_GDAL_RASTER_DRIVER_NAME", unset = get_option(option_name, option_value, "GTiff") ) } switch(option_name, - "geotargets.raster.gdal_creation_options" = - get_geotargets_raster_gdal_creation_options(option_name, option_value), - "geotargets.raster.gdal_driver_name" = - get_geotargets_raster_gdal_driver_name(option_name, option_value) + "geotargets.gdal.raster.creation_options" = + get_geotargets_gdal_raster_creation_options(option_name, option_value), + "geotargets.gdal.raster.driver_name" = + get_geotargets_gdal_raster_driver_name(option_name, option_value) ) } diff --git a/R/tar-terra-rast.R b/R/tar-terra-rast.R index d5d005b..213c06d 100644 --- a/R/tar-terra-rast.R +++ b/R/tar-terra-rast.R @@ -102,10 +102,10 @@ create_format_terra_raster <- function(filetype, gdal, ...) { drv <- terra::gdal(drivers = TRUE) drv <- drv[drv$type == "raster" & grepl("write", drv$can), ] - filetype <- filetype %||% geotargets_option_get("raster.gdal_driver_name") + filetype <- filetype %||% geotargets_option_get("gdal.raster.driver_name") filetype <- rlang::arg_match0(filetype, drv$name) - gdal <- gdal %||% geotargets_option_get("raster.gdal_creation_options") + gdal <- gdal %||% geotargets_option_get("gdal.raster.creation_options") # NOTE: Option getting functions are set in the .write_terra_raster function template # to resolve issue with body<- not working in some evaluation contexts ({covr}). @@ -114,9 +114,9 @@ create_format_terra_raster <- function(filetype, gdal, ...) { terra::writeRaster( object, path, - filetype = geotargets::geotargets_option_get("raster.gdal_driver_name"), + filetype = geotargets::geotargets_option_get("gdal.raster.driver_name"), overwrite = TRUE, - gdal = geotargets::geotargets_option_get("raster.gdal_creation_options") + gdal = geotargets::geotargets_option_get("gdal.raster.creation_options") ) } diff --git a/man/geotargets-options.Rd b/man/geotargets-options.Rd index b79777f..91e4e40 100644 --- a/man/geotargets-options.Rd +++ b/man/geotargets-options.Rd @@ -20,14 +20,14 @@ Get or set behavior for geospatial data target stores using geotargets-specific \details{ \subsection{Available Options}{ \itemize{ -\item \code{"geotargets.raster.gdal_creation_options"} - set the GDAL creation options used when writing raster files to target store (default: \code{"ENCODING=UTF-8"}) -\item \code{"geotargets.raster.gdal_driver_name"} - set the file type used for raster data in target store (default: \code{"GTiff"}) +\item \code{"geotargets.gdal.raster.creation_options"} - set the GDAL creation options used when writing raster files to target store (default: \code{"ENCODING=UTF-8"}) +\item \code{"geotargets.gdal.raster.driver_name"} - set the file type used for raster data in target store (default: \code{"GTiff"}) } Each option can be overridden with a system environment variable. Options include: \itemize{ -\item \code{GEOTARGETS_RASTER_GDAL_CREATION_OPTIONS} -\item \code{GEOTARGETS_RASTER_GDAL_DRIVER_NAME} +\item \code{GEOTARGETS_GDAL_RASTER_CREATION_OPTIONS} +\item \code{GEOTARGETS_GDAL_RASTER_DRIVER_NAME} } } } From afe94ef8296a14f65792f24d70d386e43ede741d Mon Sep 17 00:00:00 2001 From: Andrew Gene Brown Date: Wed, 13 Mar 2024 08:31:46 -0700 Subject: [PATCH 10/10] Fix .onAttach for new option name --- R/AAAA.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/AAAA.R b/R/AAAA.R index 07cd632..d6770c4 100644 --- a/R/AAAA.R +++ b/R/AAAA.R @@ -5,6 +5,6 @@ geotargets_env <- function() { } .onAttach <- function(lib, pkg) { - geotargets.env$geotargets.raster.gdal_creation_options <- "ENCODING=UTF-8" - geotargets.env$geotargets.raster.gdal_driver_name <- "GTiff" + geotargets.env$geotargets.gdal.raster.creation_options <- "ENCODING=UTF-8" + geotargets.env$geotargets.gdal.raster.driver_name <- "GTiff" }