display.R

display.R

# Display data frame as a nicely formatted and interactive GT table
display <- function(df){
  df |>
    gt::gt() |>
    gt::opt_interactive(use_search = TRUE,
                        use_compact_mode = TRUE,
                        use_text_wrapping = TRUE) |>
    gt::opt_stylize(style = 2) |>
    gt::cols_width(everything() ~ px(250))
}