R语言【cli】——ansi_html()：将ANSI格式文本转换为HTML

Package?cli?version 3.6.0

Usage

ansi_html(x, escape_reserved = TRUE, csi = c("drop", "keep"))

Arguments

参数【x】：输入字符向量。

参数【escape_reserved】：是否转义HTML中保留的字符(&、<和>)。

参数【csi】：如何处理非sgr ANSI序列，要么“keep”，要么“drop”它们。

Value

字符向量的HTML。

Example

code <- withr::with_options(
  list(ansi.num_colors = 256),
  code_highlight(format(ansi_html))
)
hcode <- paste(ansi_html(code), collapse = "\n")
css <- paste(format(ansi_html_style()), collapse=  "\n")
page <- htmltools::tagList(
  htmltools::tags$head(htmltools::tags$style(css)),
  htmltools::tags$pre(htmltools::HTML(hcode))
)

if (interactive()) htmltools::html_print(page)

function (x, escape_reserved = TRUE, csi = c("drop", "keep")) 
{
    if (!is.character(x)) 
        x <- as.character(x)
    csi <- match.arg(csi)
    x <- enc2utf8(x)
    if (escape_reserved) {
        x <- gsub_("&", "&amp;", x, fixed = TRUE, useBytes = TRUE)
        x <- gsub_("<", "&lt;", x, fixed = TRUE, useBytes = TRUE)
        x <- gsub_(">", "&gt;", x, fixed = TRUE, useBytes = TRUE)
    }
    .Call(clic_ansi_html, x, csi == "keep")
}