Code
local({
cli_div(theme = list(`.xx .emph` = list(before = "itsu:")))
f <- (function() {
cli_par(class = "xx")
cli_text("foo {.emph blah} bar")
})
f()
cli_text("foo {.emph blah} bar")
})
Message
foo itsu:blah bar
foo blah bar
Code
local({
cli_div(theme = list(`.xx .emph` = list(before = "itsu:")))
id <- NULL
f <- (function() {
id <<- cli_par(class = "xx", .auto_close = FALSE)
cli_text("foo {.emph blah} bar")
})
f()
cli_text("foo {.emph blah} bar")
expect_false(is.null(id))
cli_end(id)
cli_text("foo {.emph blah} bar")
})
Message
foo itsu:blah bar
foo itsu:blah bar
foo blah bar
Code
local({
cli_div(theme = list(`.xx .emph` = list(before = "itsu:")))
f <- (function() {
g()
cli_text("foo {.emph blah} bar")
})
g <- (function() {
cli_par(class = "xx", .auto_close = TRUE, .envir = parent.frame())
cli_text("foo {.emph blah} bar")
})
f()
cli_text("foo {.emph blah} bar")
})
Message
foo itsu:blah bar
foo itsu:blah bar
foo blah bar
Code
f <- (function() {
cli_div(theme = list(`.xx .emph` = list(before = "itsu:")))
cli_par(class = "xx")
cli_text("foo {.emph blah} bar")
})
f()
Message
foo itsu:blah bar
Code
cli_text("foo {.emph blah} bar")
Message
foo blah bar
Code
local({
cli_div(theme = list(par = list(`margin-top` = 4, `margin-bottom` = 4)))
cli_text("three lines")
cli_par()
cli_par()
cli_par()
cli_text("until here")
cli_end()
cli_end()
cli_end()
cli_par()
cli_par()
cli_par()
cli_text("no space, still")
cli_end()
cli_end()
cli_end()
cli_text("three lines again")
})
Message
three lines
until here
no space, still
three lines again
Code
local({
cli_div(theme = list(`div.alert-success` = list(before = "!!!")))
cli_alert_success("{.pkg foobar} is good")
})
Message
!!!foobar is good
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.