# NOT RUN {
if (interactive() && require(dash)) {
library(dash)
library(dashHtmlComponents)
app <- Dash$new()
app$layout(
htmlDiv(list(
htmlP("The <meta> tag provides metadata about the HTML document.
Metadata will not be displayed on the page, but will be machine parsable.
To view meta tag the content of this page can be inspected."),
htmlMeta(name = "author", content = "Edward Tufte")
))
)
app$run_server()
}
# }
Run the code above in your browser using DataLab