govTabs | R Documentation |
This function creates a tabs based table. It requires a single dataframe with a grouping variable
govTabs(inputId, df, group_col)
inputId |
The id to access the tag |
df |
A single dataframe with all data. See example for structure. |
group_col |
The column name with the groups to be used as tabs |
a tab table html shiny object.
if (interactive()) { # Create an example dataset tabs <- c(rep("Past Day", 3), rep("Past Week", 3), rep("Past Month", 3), rep("Past Year", 3)) Case_manager <- rep(c("David Francis", "Paul Farmer", "Rita Patel"),4) Cases_open <- c(3, 1, 2, 24, 16, 24, 98, 122, 126, 1380, 1129, 1539) Cases_closed <- c(0, 0, 0, 18, 20, 27, 95, 131, 142, 1472, 1083, 1265) data <- data.frame(tabs, Case_manager, Cases_open, Cases_closed) ui <- fluidPage( shinyGovstyle::header( main_text = "Example", secondary_text = "User Examples", logo="shinyGovstyle/images/moj_logo.png"), shinyGovstyle::gov_layout(size = "two-thirds", shinyGovstyle::govTabs(data, "tabs")), shinyGovstyle::footer(full = TRUE) ) server <- function(input, output, session) {} shinyApp(ui = ui, server = server) }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.