Code
cli::cli({
message("This is before")
cli_alert_info("First message")
message("This as well")
cli_alert_success("Success!")
})
Message
This is before
This as well
i First message
v Success!
Code
cli::cli({
message("This is before")
cli_alert_info("First message")
message("This as well")
cli_alert_success("Success!")
})
Message
This is before
This as well
[36mi[39m First message
[32mv[39m Success!
Code
cli::cli({
message("This is before")
cli_alert_info("First message")
message("This as well")
cli_alert_success("Success!")
})
Message
This is before
This as well
ℹ First message
✔ Success!
Code
cli::cli({
message("This is before")
cli_alert_info("First message")
message("This as well")
cli_alert_success("Success!")
})
Message
This is before
This as well
[36mℹ[39m First message
[32m✔[39m Success!
Code
cli_server_default(msgs[[1]])
Message
i First message
v Success!
Output
NULL
Code
cli_server_default(msgs[[1]])
Message
[36mi[39m First message
[32mv[39m Success!
Output
NULL
Code
cli_server_default(msgs[[1]])
Message
ℹ First message
✔ Success!
Output
NULL
Code
cli_server_default(msgs[[1]])
Message
[36mℹ[39m First message
[32m✔[39m Success!
Output
NULL
Code
withCallingHandlers(cli::cli({
cli_alert_info("First message")
cli_alert_success("Success!")
}), cliMessage = function(msg) {
msgs <<- c(msgs, list(msg))
})
Message
i First message
v Success!
Code
withCallingHandlers(cli::cli({
cli_alert_info("First message")
cli_alert_success("Success!")
}), cliMessage = function(msg) {
msgs <<- c(msgs, list(msg))
})
Message
[36mi[39m First message
[32mv[39m Success!
Code
withCallingHandlers(cli::cli({
cli_alert_info("First message")
cli_alert_success("Success!")
}), cliMessage = function(msg) {
msgs <<- c(msgs, list(msg))
})
Message
ℹ First message
✔ Success!
Code
withCallingHandlers(cli::cli({
cli_alert_info("First message")
cli_alert_success("Success!")
}), cliMessage = function(msg) {
msgs <<- c(msgs, list(msg))
})
Message
[36mℹ[39m First message
[32m✔[39m Success!
Code
local({
x <- 1:3
cli({
title <- "My title"
cli_h1("Title: {.emph {title}}")
cli_text("And {.emph some} more: {.val {x}}")
})
})
Message
-- Title: My title -------------------------------------------------------------
And some more: 1, 2, and 3
Code
local({
x <- 1:3
cli({
title <- "My title"
cli_h1("Title: {.emph {title}}")
cli_text("And {.emph some} more: {.val {x}}")
})
})
Message
[36m--[39m [1mTitle: [3mMy title[23m[22m [36m-------------------------------------------------------------[39m
And [3msome[23m more: [34m1[39m, [34m2[39m, and [34m3[39m
Code
local({
x <- 1:3
cli({
title <- "My title"
cli_h1("Title: {.emph {title}}")
cli_text("And {.emph some} more: {.val {x}}")
})
})
Message
── Title: My title ─────────────────────────────────────────────────────────────
And some more: 1, 2, and 3
Code
local({
x <- 1:3
cli({
title <- "My title"
cli_h1("Title: {.emph {title}}")
cli_text("And {.emph some} more: {.val {x}}")
})
})
Message
[36m──[39m [1mTitle: [3mMy title[23m[22m [36m─────────────────────────────────────────────────────────────[39m
And [3msome[23m more: [34m1[39m, [34m2[39m, and [34m3[39m
Code
cli::cli({
lid <- cli::cli_ul()
cli::cli_li("a bullet")
cli::cli_end(lid)
})
Message
* a bullet
Code
cli::cli({
cli::cli_h1("Header")
cli::cli(cli::cli_text("Some text"))
cli::cli_text("Some more text")
})
Message
-- Header ----------------------------------------------------------------------
Some text
Some more text
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.