Nothing
#' @importFrom crayon make_style combine_styles bold white red blue bgRed cyan yellow green
tracer_default_style <- function() {
list(
num = function(x) blue(paste0(" ", format(x))),
baseenv = combine_styles(cyan, bold),
env = cyan,
arg = identity,
fnam = yellow,
error = error_style,
location = green,
pointer = combine_styles(bgRed, white)
)
}
error_style <- function(x) {
txt <- paste0(" ", symbol$cross, " ", trim_ws(x), "\n")
combine_styles(bold, red)(txt)
}
#' @importFrom utils installed.packages
grey_envs <- c(
rownames(installed.packages(priority = "base")),
"R_GlobalEnv"
)
style_env <- function(e, style) {
if (e %in% grey_envs) {
paste0(style$baseenv(e), "::")
} else if (e != "") {
paste0(style$env(e), "::")
} else {
""
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.