#' @import cli
#' @export
print.TicStages <- function(x, ...) {
cli::cat_rule("tic configuration summary", col = "blue")
if (all(vlapply(x, stage_is_empty))) {
cat_bullet(
"No steps defined in any stage",
bullet = "info", bullet_col = "green"
)
} else {
lapply(x, print, omit_if_empty = TRUE)
}
invisible(x)
}
#' @export
print.TicStage <- function(x, ..., omit_if_empty = FALSE) {
x$print(omit_if_empty = omit_if_empty)
invisible(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.