Interactive table Function

This function inserts a government-styled table using `reactable`.

Usage

govTable_interactive(
  inputId,
  df,
  caption,
  caption_size = "l",
  right_col = NULL,
  col_widths = list(),
  page_size = 10
)

Arguments

inputId

A unique input ID for the table.

df

A dataframe used to generate the table.

caption

A text caption displayed above the table as a heading.

caption_size

Defines the size of the caption text. Options: "s", "m", "l", "xl" (default: "l").

right_col

A vector of column names that should be right-aligned. By default, numeric data is right-aligned, and character data is left-aligned.

col_widths

A named list specifying column widths using width classes (e.g., "one-quarter", "two-thirds").

page_size

The default number of rows displayed per page (default: 10).

Value

A `reactable` HTML widget styled with GOV.UK classes.

Examples

if (interactive()) {

  Months <- rep(c("January", "February", "March", "April", "May"), times = 2)
  Colours <- rep(c("Red", "Blue"), times = 5)
  Bikes <- c(85, 75, 165, 90, 80, 95, 85, 175, 100, 95)
  Cars <- c(95, 55, 125, 110, 70, 120, 60, 130, 115, 90)
  Vans <- c(150, 130, 180, 160, 140, 175, 135, 185, 155, 145)
  Buses <- c(200, 180, 220, 210, 190, 215, 185, 225, 205, 195)
  example_data <- data.frame(Months, Colours, Bikes, Cars, Vans, Buses)

  ui <- 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",
      govTable_interactive(
        "tab1", example_data, "Test Table", "l",
        right_col = c("Colours", "Bikes", "Cars", "Vans", "Buses"),
        col_widths = list(Months = "one-third"),
        page_size = 5
        )
    ),

    shinyGovstyle::footer(full = TRUE)
  )

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

  shinyApp(ui, server)
}