# NOT RUN {
if (interactive()) {
library(dash)
app <- Dash$new()
app$layout(
htmlDiv(list(
"You can create a table with htmlTable:",
htmlBr(),
htmlTable(
list(
htmlTr(
list(
htmlTh("Table Header 1"),
htmlTh("Table Header 2")
)
),
htmlTr(
list(
htmlTd("row 1 under Header 1"),
htmlTd("row 1 under Header 2")
)
)
)
)
)
)
)
app$run_server()
}
# }
Run the code above in your browser using DataLab