# NOT RUN {
if (interactive()) {
library(dash)
app <- Dash$new()
app$layout(
htmlDiv(list(
"You can create an HTML template to be populated later via js",
htmlBr(),
htmlTable(
id = "myTable",
htmlTr(
list(
htmlTh("Header 1"),
htmlTh("Header 2")
)
)
),
htmlTemplate(
id = "myRowTemplate",
htmlTr(
list(
htmlTd(className = "someRowValue"),
htmlTd()
)
)
)
)
)
)
app$run_server()
}
# }
Run the code above in your browser using DataLab