# NOT RUN {
if (interactive()) {
library(dash)
app <- Dash$new()
app$layout(
htmlDiv(list(
"Within an htmlTable, you can create a header with htmlThead",
htmlBr(),
htmlTable(
list(
htmlThead(
htmlTr(
htmlTh("This is in the header of the table")
)
),
htmlTbody(
htmlTr(
htmlTd("This is in the body of the table")
)
),
htmlTfoot(
htmlTr(
htmlTd("This is in the footer of the table")
)
)
)
)
)
)
)
app$run_server()
}
# }
Run the code above in your browser using DataLab