Nothing
#' Default `prettycode` syntax highlighting style
#'
#' A style function must return a named list of functions. Possible
#' entries:
#' * `reserved`: reserved words
#' * `number`: numeric literals
#' * `null`: the `NULL` constant
#' * `operator`: operators, including assignment
#' * `call`: function calls
#' * `string`: character literals
#' * `comment`: comments
#' * `bracket`: brackets: \code{(){}[]}
#'
#' Each entry in a list must be a function that takes a character
#' scalar, and returns a character scalar with the exception of `bracket`
#' which should be a list of these type of functions defining a color sequence.
#' The default style adds ANSI formatting to the code.
#'
#' Note that you can also change the code if you like, e.g. to include
#' a unicode arrow character instead of the two-character assignment
#' operator.
#'
#' @importFrom crayon red cyan combine_styles make_style magenta bold
#' blue green yellow italic
#' @export
#' @examples
#' highlight(deparse(get), style = default_style())
default_style <- function() {
rs <- rstudio$detect()
if (rs$type %in% c("rstudio_console", "rstudio_console_starting")) {
default_style_rstudio()
} else {
default_style_term()
}
}
default_style_rstudio <- function() {
theme <- rstudioapi::getThemeInfo()$editor
do.call(rstudio_themes[[theme]] %||% no_style, list())
}
no_style <- function() {
list(
reserved = identity,
number = identity,
null = identity,
operator = identity,
call = identity,
string = identity,
comment = identity,
bracket = list(identity)
)
}
default_style_term <- function() {
list(
reserved = red,
number = blue,
null = combine_styles(blue, bold),
operator = green,
call = cyan,
string = yellow,
comment = combine_styles(make_style("darkgrey"), italic),
bracket = c(yellow, blue, cyan)
)
}
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.