# This file is generated automatically by inst/generate_style_funs.R.
# Do not edit manually.
#' Colt style elements
#'
#' @name colt_styles
#' @param x a character vector
#' @param fun a styling function
#'
#' @export
#' @rdname colt_styles
clt_default <- function(x, fun = options("colt.theme")[[1]]$clt_default){
fun(x)
}
#' @export
#' @rdname colt_styles
clt_h1 <- function(x, fun = options("colt.theme")[[1]]$clt_h1){
fun(x)
}
#' @export
#' @rdname colt_styles
clt_h2 <- function(x, fun = options("colt.theme")[[1]]$clt_h2){
fun(x)
}
#' @export
#' @rdname colt_styles
clt_chr <- function(x, fun = options("colt.theme")[[1]]$clt_chr){
fun(x)
}
#' @export
#' @rdname colt_styles
clt_chr_accent <- function(x, fun = options("colt.theme")[[1]]$clt_chr_accent){
fun(x)
}
#' @export
#' @rdname colt_styles
clt_chr_subtle <- function(x, fun = options("colt.theme")[[1]]$clt_chr_subtle){
fun(x)
}
#' @export
#' @rdname colt_styles
clt_true <- function(x, fun = options("colt.theme")[[1]]$clt_true){
fun(x)
}
#' @export
#' @rdname colt_styles
clt_false <- function(x, fun = options("colt.theme")[[1]]$clt_false){
fun(x)
}
#' @export
#' @rdname colt_styles
clt_maybe <- function(x, fun = options("colt.theme")[[1]]$clt_maybe){
fun(x)
}
#' @export
#' @rdname colt_styles
clt_num <- function(x, fun = options("colt.theme")[[1]]$clt_num){
fun(x)
}
#' @export
#' @rdname colt_styles
clt_num_accent <- function(x, fun = options("colt.theme")[[1]]$clt_num_accent){
fun(x)
}
#' @export
#' @rdname colt_styles
clt_num_subtle <- function(x, fun = options("colt.theme")[[1]]$clt_num_subtle){
fun(x)
}
#' @export
#' @rdname colt_styles
clt_bg <- function(x, fun = options("colt.theme")[[1]]$clt_bg){
fun(x)
}
#' @export
#' @rdname colt_styles
clt_bg_subtle <- function(x, fun = options("colt.theme")[[1]]$clt_bg_subtle){
fun(x)
}
#' @export
#' @rdname colt_styles
clt_bg_accent <- function(x, fun = options("colt.theme")[[1]]$clt_bg_accent){
fun(x)
}
#' @export
#' @rdname colt_styles
clt_na <- function(x, fun = options("colt.theme")[[1]]$clt_na){
fun(x)
}
#' @export
#' @rdname colt_styles
clt_nan <- function(x, fun = options("colt.theme")[[1]]$clt_nan){
fun(x)
}
#' @export
#' @rdname colt_styles
clt_inf <- function(x, fun = options("colt.theme")[[1]]$clt_inf){
fun(x)
}
#' @export
#' @rdname colt_styles
clt_null <- function(x, fun = options("colt.theme")[[1]]$clt_null){
fun(x)
}
#' @export
#' @rdname colt_styles
clt_info <- function(x, fun = options("colt.theme")[[1]]$clt_info){
fun(x)
}
#' @export
#' @rdname colt_styles
clt_message <- function(x, fun = options("colt.theme")[[1]]$clt_message){
fun(x)
}
#' @export
#' @rdname colt_styles
clt_warning <- function(x, fun = options("colt.theme")[[1]]$clt_warning){
fun(x)
}
#' @export
#' @rdname colt_styles
clt_error <- function(x, fun = options("colt.theme")[[1]]$clt_error){
fun(x)
}
#' @export
#' @rdname colt_styles
clt_emph <- function(x, fun = options("colt.theme")[[1]]$clt_emph){
fun(x)
}
#' @export
#' @rdname colt_styles
clt_emph2 <- function(x, fun = options("colt.theme")[[1]]$clt_emph2){
fun(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.