| 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.