# NOT RUN {
if (interactive()) {
# The blink tag is now obsolete and deprecated.
# It may not function properly in all browsers,
# and it may cease working without warning.
#
# This element is generally unsupported on all
# modern browser releases.
library(dash)
app <- Dash$new()
app$layout(
htmlDiv(list(
htmlP(children="Here is a bit of text."),
htmlBlink(children="Here is a bit of blinking text.")
)
)
)
app$run_server()
}
# }
Run the code above in your browser using DataLab