# NOT RUN {
if (interactive()) {
# This feature is obsolete. It may still work in some
# browsers, but could stop working at any time. Try to
# avoid using this component.
#
# Instead, use CSS properties to set font, font-family,
# font-size and color.
library(dash)
app <- Dash$new()
app$layout(
htmlDiv(list(
htmlBasefont(color="FF0000",
face="Helvetica",
size="+2"),
htmlP(children="If it works, this will be Helvetica but a couple point sizes larger.")
)
)
)
app$run_server()
}
# }
Run the code above in your browser using DataLab