Skip to contents

Table Function

Source: R/govTable.R
govTable.Rd

This function inserts a gov styled table. Format is with header looking rows and columns

Usage

govTable(
  inputId,
  df,
  caption,
  caption_size = "l",
  num_col = NULL,
  width_overwrite = NULL
)

Arguments

inputId

Input Id for the table

df

expects a dataframe to create a table

caption

adds a caption to the table as a header

caption_size

adjust the size of caption. Options are s, m, l, xl, with l as the default

num_col

adds numeric class format to these columns

width_overwrite

change width. Need to include width for every column. Columns must add up to 1. Options are three-quarters, two-thirds, one-half, one-third, one-quarter. Default is NULL

Value

a table HTML shiny tag object

Examples

months <- c("January", "February", "March")
bikes <- c("£85", "£75", "£165")
cars <- c("£95", "£55", "£125")

example_data <- data.frame(months, bikes, cars)

ui <- shiny::fluidPage(
  shinyGovstyle::header(
    main_text = "Example",
    secondary_text = "User Examples",
    logo="shinyGovstyle/images/moj_logo.png"
  ),
  shinyGovstyle::banner(
    inputId = "banner", type = "beta", 'This is a new service'
  ),
  shinyGovstyle::gov_layout(size = "two-thirds",
    shinyGovstyle::govTable(
      "tab1", example_data, "Test", "l", num_col = c(2,3),
      width_overwrite = c("one-half", "one-quarter", "one-quarter")
    )
  ),
  shinyGovstyle::footer(full = TRUE)
)
#> Warning: Please use logo_alt_text to provide alternative text for the logo you used.

server <- function(input, output, session) {}

if (interactive()) shinyApp(ui = ui, server = server)