# NOT RUN {
if (interactive()) {
# Used within htmlColgroup to define columns.
library(dash)
app <- Dash$new()
app$layout(
htmlDiv(list(
htmlTable(list(
htmlColgroup(
list(
htmlCol(span = 2, style = list("background-color"= "red"))
)
),
htmlTr(
list(
htmlTd("Cell A"),
htmlTd("Cell B"),
htmlTd("Cell C")
)
)
))
)
)
)
app$run_server()
}
# }
Run the code above in your browser using DataLab