tar_format_get()

Author: wlandau

Diff for: NAMESPACE

@@ -433,6 +433,7 @@ export(tar_exist_process)
 export(tar_exist_progress)
 export(tar_exist_script)
 export(tar_format)
+export(tar_format_get)
 export(tar_github_actions)
 export(tar_glimpse)
 export(tar_group)

Diff for: NEWS.md

@@ -11,6 +11,7 @@
 * Implement `format = "auto"` (#1311, @hadley).
 * Replace `pingr` dependency with `base::socketConnection()` for local URL utilities (#1317, #1318, @Adafede).
 * Implement `tar_repository_cas()`, `tar_repository_cas_local()`, and `tar_repository_cas_local_gc()` for content-addressable storage (#1232, #1314, @noamross).
+* Add `tar_format_get()` to make implementing CAS systems easier.
 
 # targets 1.7.1
 

Diff for: R/tar_format_get.R

@@ -0,0 +1,17 @@
+#' @title Current storage format.
+#' @export
+#' @family utilities
+#' @description Get the storage format of the target currently running.
+#' @details This function is meant to be called inside a target in a
+#'   running pipeline. If it is called outside a target in the running
+#'   pipeline, it will return the default format given by
+#'   `tar_option_get("format")`.
+#' @return A character string, storage format of the target currently
+#'   running in the pipeline. If called outside a target in the running
+#'   pipeline, [tar_format_get()] will return the default format given by
+#'   `tar_option_get("format")`.
+#' @examples
+#' tar_target(x, tar_format_get(), format = "qs")
+tar_format_get <- function() {
+  tar_definition()$settings$format
+}

Diff for: _pkgdown.yml

@@ -172,6 +172,7 @@ reference:
   - 'tar_definition'
   - 'tar_described_as'
   - 'tar_envir'
+  - 'tar_format_get'
   - 'tar_group'
   - 'tar_name'
   - 'tar_path_script'

Diff for: man/tar_active.Rd

@@ -0,0 +1,8 @@
+tar_test("tar_format_get()", {
+  skip_cran()
+  skip_if_not_installed("qs")
+  expect_equal(tar_format_get(), tar_option_get("format"))
+  tar_script(tar_target(x, tar_format_get(), format = "qs"))
+  tar_make(callr_function = NULL)
+  expect_equal(tar_read(x), "qs")
+})