diff --git a/R/tar-stars.R b/R/tar-stars.R index 468bfe2..7991065 100644 --- a/R/tar-stars.R +++ b/R/tar-stars.R @@ -98,78 +98,6 @@ tar_stars <- function(name, ) } -#' @export -#' @rdname tar_stars -tar_stars_proxy <- function(name, - command, - pattern = NULL, - mdim = FALSE, - ncdf = FALSE, - driver = geotargets_option_get("gdal.raster.driver"), - options = geotargets_option_get("gdal.raster.creation.options"), - ..., - tidy_eval = targets::tar_option_get("tidy_eval"), - packages = targets::tar_option_get("packages"), - library = targets::tar_option_get("library"), - repository = targets::tar_option_get("repository"), - iteration = targets::tar_option_get("iteration"), - error = targets::tar_option_get("error"), - memory = targets::tar_option_get("memory"), - garbage_collection = targets::tar_option_get("garbage_collection"), - deployment = targets::tar_option_get("deployment"), - priority = targets::tar_option_get("priority"), - resources = targets::tar_option_get("resources"), - storage = targets::tar_option_get("storage"), - retrieval = targets::tar_option_get("retrieval"), - cue = targets::tar_option_get("cue")) { - - rlang::check_installed("stars") - - name <- targets::tar_deparse_language(substitute(name)) - - envir <- targets::tar_option_get("envir") - - command <- targets::tar_tidy_eval( - expr = as.expression(substitute(command)), - envir = envir, - tidy_eval = tidy_eval - ) - - pattern <- targets::tar_tidy_eval( - expr = as.expression(substitute(pattern)), - envir = envir, - tidy_eval = tidy_eval - ) - - targets::tar_target_raw( - name = name, - command = command, - pattern = pattern, - packages = packages, - library = library, - format = create_format_stars( - driver = driver, - options = options, - proxy = TRUE, - mdim = mdim, - ncdf = ncdf, - ... - ), - repository = repository, - iteration = iteration, - error = error, - memory = memory, - garbage_collection = garbage_collection, - deployment = deployment, - priority = priority, - resources = resources, - storage = storage, - retrieval = retrieval, - cue = cue - ) -} - - #' @export #' @rdname tar_stars tar_stars_proxy <- function(name,