# NOT RUN {
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()
}
# }
Run the code above in your browser using DataLab