# NOT RUN {
if (interactive()) {
library(dash)
app <- Dash$new()
app$layout(
htmlDiv(list(
htmlMain(
list(htmlH1("Benjamin Franklin"),
htmlP("Benjamin Franklin was an American polymath
and one of the Founding Fathers of the United States.
Franklin was a leading author, printer, political theorist,
politician, Freemason, postmaster, scientist, inventor,
humorist, civic activist, statesman, and diplomat."))
)
))
)
app$run_server()
}
# }
Run the code above in your browser using DataLab