Code
local({
withr::local_options(cli.width = 40)
str30 <- "123456789 123456789 1234567890"
cli_text(c(str30, "this is not breaking"))
})
Message
123456789 123456789
1234567890this is not breaking
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.