# NOT RUN {
if (interactive()) {
library(dash)
app <- Dash$new()
app$layout(
htmlDiv(list(
htmlP("The <param> element is used to specify the parameters that apply to
plugin-powered content embedded with an <object> element.
Read more: https://developer.mozilla.org/en-US/docs/Web/HTML/Element/param"),
htmlObjectEl(
#data = "link-to-data-file"
htmlParam(name = "controller", value = TRUE)
)
))
)
app$run_server()
}
# }
Run the code above in your browser using DataLab