context("cli inline")
setup(start_app())
teardown(stop_app())
test_that("inline classes", {
classes <- c(
"emph", "strong", "code", "pkg", "fun", "arg", "key", "file", "path",
"email", "url", "var", "envvar")
do <- function(class) {
special_style <- structure(
list(
list(color = "cyan"),
list(content = "<<<"),
list(content =">>>")),
names = c(
paste0("span.", class),
paste0("span.", class, "::before"),
paste0("span.", class, "::after")
)
)
cli_div(theme = special_style)
withr::with_options(list(crayon.enabled = TRUE, crayon.colors = 256), {
txt <- glue::glue("This is {<class> it} really",
.open = "<", .close = ">")
out <- capt0(cli_text(txt))
expect_true(crayon::has_style(out))
expect_match(crayon::strip_style(out), "<<<it>>>", info = class)
expect_match(out, start(crayon::make_style("cyan")), fixed = TRUE, info = class)
})
}
lapply(classes, do)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.