# NOT RUN {
if (require(crayon)) {
glue_col("{blue foo bar}")
glue_col("{blue 1 + 1 = {1 + 1}}")
white_on_grey <- bgBlack $ white
glue_col("{white_on_grey
Roses are {red {colors()[[552]]}}
Violets are {blue {colors()[[26]]}}
`glue_col()` can show {red c}{yellow o}{green l}{cyan o}{blue r}{magenta s}
and {bold bold} and {underline underline} too!
}")
}
# }
Run the code above in your browser using DataLab