R/tar_noninteractive.R

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

#' @title Run if Target Markdown interactive mode is not on.
#' @export
#' @family Target Markdown
#' @description In Target Markdown, run the enclosed code
#'   only if interactive mode is not activated. Otherwise,
#'   do not run the code.
#' @details Visit <books.ropensci.org/targets/literate-programming.html>
#'   to learn about Target Markdown and interactive mode.
#' @return If Target Markdown interactive mode is not turned on,
#'   the function returns the result of running the code.
#'   Otherwise, the function invisibly returns `NULL`.
#' @param code R code to run if Target Markdown interactive mode
#'   is not turned on.
#' @examples
#' tar_noninteractive(message("Not in interactive mode."))
tar_noninteractive <- function(code) {
  if_any(
    engine_knitr_is_interactive(),
    invisible(),
    force(code)
  )
}