This function creates a tabs based table. It requires a single dataframe with a grouping variable.
Examples
ui <- shiny::fluidPage(
shinyGovstyle::header(
main_text = "Example",
secondary_text = "User Examples",
logo = "shinyGovstyle/images/moj_logo.png",
logo_alt_text = "Ministry of Justice logo"
),
shinyGovstyle::gov_main_layout(
size = "two-thirds",
shinyGovstyle::govTabs("tabs", shinyGovstyle::case_data, "tabs")
),
shinyGovstyle::footer(full = TRUE)
)
server <- function(input, output, session) {}
if (interactive()) shinyApp(ui = ui, server = server)
