simple_table | R Documentation |
Simple HTML table
simple_table(data, colnames = TRUE, rownames = FALSE)
data |
A data.frame |
colnames |
(logical) Whether or not to show the column names (a header row) |
rownames |
(logical) Whether or not to show the row names |
if (interactive()) {
app <- dash_app() %>%
set_layout(
dccChecklist(
id = "table_params",
labelStyle = list(display = "block"),
options = list(
list(label = "Header", value = "colnames"),
list(label = "Row names", value = "rownames")
)
),
br(),
div(id = "table")
)
app %>% add_callback(
output(id = 'table', property = 'children'),
input(id = 'table_params', property = 'value'),
function(val) {
simple_table(mtcars, colnames = "colnames" %in% val, rownames = "rownames" %in% val)
}
)
app %>% run_app()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.