cli_glue = function(..., .envir = parent.frame()) {
txt = cli::cli_format_method(cli::cli_text(..., .envir = .envir))
# cli_format_method does wrapping which we dont want at this stage
# so glue things back together.
paste(txt, collapse = " ")
}
cli_stop = function(..., .envir = parent.frame()) {
text = cli_glue(..., .envir = .envir)
stop(paste(text, collapse = "\n"), call. = FALSE)
}
cli_warn = function(..., .envir = parent.frame()) {
text = cli_glue(..., .envir = .envir)
warning(paste(text, collapse = "\n"), call. = FALSE)
}
# Simplified version of usethis::ui_yeah
cli_yeah = function (..., .envir = parent.frame()) {
if (!rlang::is_interactive()) {
cli_stop("User input required, but session is not interactive.")
}
cli::cli_text(..., .envir = .envir)
opts = c("Yes", "No")
s = utils::menu(opts)
s != 0L && opts[[s]] == "Yes"
}
cli_kv = function(key, value, warning = NULL) {
key = cli::col_silver(key)
if (is.null(warning)) {
cli_glue("{key}: {.val {value}}")
} else {
cli_glue("{key}: {.val {value}} <- {.strong {cli::col_red('Warning:')}} {cli::col_red(warning)}")
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.