#' 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
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.