# NOT RUN {
if (interactive()) {
library(dash)
app <- Dash$new()
app$layout(
htmlDiv(list(
htmlArticle(list(
htmlH2('Dash for R launched!'),
htmlP('Dash is a user interface library for creating analytical\n
web applications. Those who use R for data analysis, data\n
exploration, visualization, modelling, instrument control,\n
and reporting will find immediate use for Dash for R.'),
htmlAside('Plotly is a technical computing company with offices\n
in Montreal, Canada and Cambridge, Massachusetts.')
)
)
)
)
)
app$run_server()
}
# }
Run the code above in your browser using DataLab