# 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