# NOT RUN {
if (interactive()) {
library(dash)
app <- Dash$new()
app$layout(
htmlDiv(list(
htmlUl(list(
htmlLi(list(htmlData(value = 398, "First Element"))),
htmlLi(list(htmlData(value = 399, "Second Element"))),
htmlLi(list(htmlData(value = 400, "First Element")))
))
)
)
)
# Include the following in a separate CSS file in an
# `assets` directory in the root of your app.
#
# data:hover::after {
# content: ' (ID ' attr(value) ')';
# font-size: .7em;
# }
app$run_server()
}
# }
Run the code above in your browser using DataLab