error <- function(..., .envir = parent.frame(), .subclass = "enum_error") {
rlang::abort(glue::glue(..., .envir = .envir), .subclass = .subclass)
}
error_bullets <- function(main, sub, bullets) {
transformer <- function(text, envir) {
items <- eval(parse(text = text, keep.source = FALSE), envir)
paste(" *", items, collapse = "\n")
}
error(main, "", sub, "{bullets}", .transformer = transformer, .sep = "\n")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.