Rename tar_<filetype>() to tar_<pkg>_<data type>()

.gitignore

@@ -4,3 +4,4 @@
 .httr-oauth
 .DS_Store
 .quarto
+.Rprofile

DESCRIPTION

@@ -4,17 +4,16 @@ Version: 0.0.0.9000
 Authors@R: c(
     person(
       given = "Nicholas", 
-      last = "Tierney", 
+      family = "Tierney", 
       email = "[email protected]", 
       role = c("aut", "cre"),
-      comment = c(ORCID = "https://orcid.org/0000-0003-1460-8722")
+      comment = c(ORCID = "0000-0003-1460-8722")
       ),
     person(
-      given = "",
-      last = "",
-      email = "",
+      given = "Eric",
+      family = "Scott",
       role = c("aut"),
-      comment = c(ORCID = "https://orcid.org/XXXX")
+      comment = c(ORCID = "0000-0002-7430-7879")
     )
     )
 Description: Provides extensions for various geospatial file formats, 

R/formats.R

@@ -0,0 +1,17 @@
+format_terra_rast <- function() {
+    write_fun <- function(object, path) {
+        terra::writeRaster(
+            x = object,
+            filename = path,
+            overwrite = TRUE,
+            filetype = "GTiff" #TODO would love to be able to control this with an argument to format_terra_rast()
+        )
+    }
+    targets::tar_format(
+        read = function(path) terra::rast(path),
+        write = write_fun,
+        marshal = function(object) terra::wrap(object),
+        unmarshal = function(object) terra::unwrap(object)
+    )
+}
+

R/tar-terra.R

@@ -0,0 +1,54 @@
+#' @export
+tar_terra_rast <- function(name,
+                           command,
+                           pattern = NULL,
+                           packages = targets::tar_option_get("packages"),
+                           tidy_eval = targets::tar_option_get("tidy_eval"),
+                           library = targets::tar_option_get("library"),
+                           format = format_terra_rast(),
+                           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")) {
+    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 = format,
+        repository = repository,
+        iteration = iteration,
+        error = error,
+        memory = memory,
+        garbage_collection = garbage_collection,
+        deployment = deployment,
+        priority = priority,
+        resources = resources,
+        storage = storage,
+        retrieval = retrieval,
+        cue = cue
+    )
+}

tests/testthat/test-formats.R

@@ -0,0 +1,5 @@
+test_that("formats return output of tar_format()", {
+    expect_type(format_terra_rast, "closure")
+    expect_type(format_terra_rast(), "character")
+    expect_match(format_terra_rast(), "^format_custom.+")
+})