# NOT RUN {
if (interactive() && require(dash)) {
# Warning: The <listing> element was intended as a way to render HTML code on a page.
# It was never properly supported, and is now deprecated. Using <listing> will almost
# certainly result in unexpected results. Instead, use <code>, or place the content in
# a <div> with the appropriate CSS styling.
library(dash)
library(dashHtmlComponents)
app <- Dash$new()
app$layout(
htmlDiv(list(
htmlListing(list(
htmlUl("A"),
htmlUl("B"),
htmlUl("C")
))
))
)
app$run_server()
}
# }
Run the code above in your browser using DataLab