# NOT RUN {
cli_rule()
cli_text(packageDescription("cli")$Description)
cli_rule()
# Theming
d <- cli_div(theme = list(rule = list(
color = "blue",
"background-color" = "darkgrey",
"line-type" = "double")))
cli_rule("Left", right = "Right")
cli_end(d)
# Interpolation
cli_rule(left = "One plus one is {1+1}")
cli_rule(left = "Package {.pkg mypackage}")
# }
Run the code above in your browser using DataLab