# NOT RUN {
if (interactive() && require(dash)) {
library(dash)
library(dashHtmlComponents)
app <- Dash$new()
app$layout(
htmlDiv(list(
htmlH2(list(
'Dash Html',
htmlBr(), #We can customize
htmlSpan('Dash', style = list('opacity' = '0.8')),
htmlSpan(' Core')))
)
)
)
app$run_server()
}
# }
Run the code above in your browser using DataLab