# NOT RUN {
if (interactive()) {
# Warning: The <plaintext> tag is obsolete,
# it might not work as intended.
# Use the <pre> tag instead.
library(dash)
app <- Dash$new()
app$layout(
htmlDiv(list(
htmlPlaintext(),
htmlBr(),
htmlH4("The HTML Plaintext Element (<plaintext>) renders everything following
the start tag as raw text, ignoring any following HTML. There is no closing tag,
since everything after it is considered raw text.")
))
)
app$run_server()
}
# }
Run the code above in your browser using DataLab