R/utils.R

In git2rdata: Store and Retrieve Data.frames in a Git Repository

# function used by devtools::release()
# gramr is avaible from https://github.com/ropenscilabs/gramr
release_questions <- function() { # nocov start
  c(
    "Did you ran `gramr::check_project(exclude_chunks = TRUE)`"
  )
} # nocov end

#' @noRd
#' @importFrom utils flush.console
#' @importFrom assertthat assert_that is.flag noNA
display <- function(verbose, message, linefeed = TRUE) {
  assert_that(is.flag(verbose), noNA(verbose))
  assert_that(is.flag(linefeed), noNA(linefeed))

  if (verbose) {
    message(message, appendLF = linefeed)
    flush.console()
  }
  return(invisible(NULL))
}