# NOT RUN {
things <- c(rep("this", 3), "that")
cli_format(things)
cli_text("{.val {things}}")
nums <- 1:5 / 7
cli_format(nums, style = list(digits = 2))
cli_text("{.val {nums}}")
divid <- cli_div(theme = list(.val = list(digits = 3)))
cli_text("{.val {nums}}")
cli_end(divid)
# }
Run the code above in your browser using DataLab