# NOT RUN {
txt <- "\033[31;42mHello \033[7mWorld\033[m"
writeLines(txt)
html <- sgr_to_html(txt)
# }
# NOT RUN {
in_html(html) # spawns a browser window
# }
# NOT RUN {
writeLines(readLines(in_html(html, display=FALSE)))
css <- "SPAN {text-decoration: underline;}"
writeLines(readLines(in_html(html, css=css, display=FALSE)))
# }
# NOT RUN {
in_html(html, css)
# }
Run the code above in your browser using DataLab