cleanup duplicate

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,