R/check_interactive.R

Defines functions check_interactive

Documented in check_interactive

#' Verify Correctness of User-Specified Interactive Preference
#'
#' @inheritParams data_collection_program
#'
#' @keywords internal
#'
check_interactive <- function(interactive) {
  if (all(!interactive(), interactive)) {
    message(
      paste("Cannot run data_collection_program interactively.",
        "Setting interactive = FALSE."))
    interactive <- FALSE
  }

  return(interactive)
}

Try the Observation package in your browser

Any scripts or data that you put into this service are public.

Observation documentation built on May 2, 2019, 12:15 p.m.