Nothing
#' @export
clt_theme_light <- colt_theme(
clt_default = identity,
clt_h1 = function(x) crayon::bold(crayon::cyan(x)),
clt_h2 = function(x) crayon::cyan(x),
clt_chr = crayon::black,
clt_chr_accent = crayon::blue,
clt_chr_subtle = crayon::silver,
clt_true = crayon::green,
clt_false = crayon::red,
clt_maybe = crayon::yellow,
clt_num = crayon::black,
clt_num_accent = crayon::blue,
clt_num_subtle = crayon::silver,
clt_bg = identity,
clt_bg_subtle = crayon::make_style(grDevices::grey(0.6), bg = TRUE, grey = TRUE),
clt_bg_accent = crayon::make_style("#F3F315", bg = TRUE),
clt_na = crayon::magenta,
clt_nan = crayon::magenta,
clt_inf = crayon::magenta,
clt_null = crayon::magenta,
clt_info = identity,
clt_message = crayon::green,
clt_warning = crayon::yellow,
clt_error = crayon::red,
clt_emph = crayon::italic,
clt_emph2 = crayon::bold
)
#' @export
clt_theme_dark <- colt_theme(
clt_default = identity,
clt_h1 = crayon::bold,
clt_h2 = crayon::italic,
clt_chr = crayon::white,
clt_chr_accent = crayon::make_style("#7CB9E8", colors = 256),
clt_chr_subtle = crayon::silver,
clt_true = crayon::green,
clt_false = crayon::make_style("#E52B50", colors = 256),
clt_maybe = crayon::yellow,
clt_num = crayon::white,
clt_num_accent = crayon::blue,
clt_num_subtle = crayon::silver,
clt_bg = identity,
clt_bg_subtle = crayon::make_style(grDevices::grey(0.4), bg = TRUE, grey = TRUE),
clt_bg_accent = crayon::make_style("#3B3B6D", bg = TRUE, colors = 256),
clt_na = crayon::magenta,
clt_nan = crayon::magenta,
clt_inf = crayon::magenta,
clt_null = crayon::magenta,
clt_info = identity,
clt_message = crayon::green,
clt_warning = crayon::yellow,
clt_error = crayon::red,
clt_emph = crayon::italic,
clt_emph2 = crayon::bold
)
devtools::use_data(clt_theme_light, overwrite = TRUE)
devtools::use_data(clt_theme_dark, overwrite = TRUE)
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.