R/rstudio_addin_tar_target.R

In 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 insert `"tar_target()"` 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_target <- function(context = NULL) {
  tar_assert_package("rstudioapi")
  context <- context %||% rstudioapi::getActiveDocumentContext()
  location <- context$selection[[1L]]$range$start
  rstudioapi::insertText(
    text = "tar_target()",
    location = location,
    id = context$id
  )
  cursor <- location
  cursor[2L] <- cursor[2L] + 11L
  rstudioapi::setCursorPosition(cursor, id = context$id)
}
# nocov end