R/test_functions.R

In Giappo/jappe: Jap

#' Print a variable, but not from test environment
#' @param var a variable, to be expressed as string
#' @export
print_from_global <- function(var = "seed") {
  if (var %in% ls(.GlobalEnv)) {
    cat(var, "is", get(var), "\n")
  }
}

#' Detect if it is called on continous integration
#' @export
is_on_ci <- function() {
  is_it_on_appveyor <- Sys.getenv("APPVEYOR") != ""
  is_it_on_travis <- Sys.getenv("TRAVIS") != ""
  is_it_on_appveyor || is_it_on_travis
}