R/misc.R

In lindeloev/job: Run Code as an RStudio Job - Free Your Console

# TRUE if this is the RStudio main session
check_available = function() {
  if (rstudioapi::isAvailable() == FALSE & getOption("is.job", FALSE) == FALSE)
    stop("You must run this from the RStudio main session.")

  invisible(TRUE)
}


# Returns the size of some vars an environment
env_size_mb = function(vars, env, digits = 1) {
  vars_bytes = sapply(vars, function(x) utils::object.size(get(x, envir = env)))
  total_bytes = sum(as.numeric(vars_bytes))
  round(total_bytes / 10^6, digits)
}


release_questions = function() {
  c(
    "Did you run all the README demos?",
    "Did you run all pkgdown code?",
    "Did you run README in MacOS VM?",
    "Did you run README in Ubuntu VM?"
  )
}