R/rstudio_addin_tar_load.R

In wlandau/targets: Dynamic Function-Oriented 'Make'-Like Declarative Pipelines

# RStudio addins are tested interactively in
# tests/interactive/test-rstudio_addins.R. # nolint
# nocov start
#' @title RStudio addin to call [tar_load()] on the symbol at the cursor.
#' @description For internal use only. Not a user-side function.
#' @export
#' @keywords internal
#' @param context RStudio API context from
#'   `rstudioapi::getActiveDocumentContext()`.
rstudio_addin_tar_load <- function(context = NULL) {
  tar_assert_package("rstudioapi")
  context <- context %||% rstudioapi::getActiveDocumentContext()
  target <- rstudio_symbol_at_cursor(context)
  if (!is.null(target)) {
    cli_blue_bullet(paste("Loading target", target, "into global environment."))
    env <- list(target = as.symbol(target))
    eval(substitute(targets::tar_load(target, envir = globalenv()), env = env))
  }
}
# nocov end