data-raw/internal_data.R

In ddsjoberg/gtsummary: Presentation-Ready Data Summary and Analytic Result Tables

# internal data ----------------------------------------------------------------
df_theme_elements <- readr::read_csv("data-raw/gtsummary_theme_elements.csv")

df_add_p_tests <-
  readr::read_csv("data-raw/gtsummary_tests.csv") |>
  dplyr::mutate(
    test_fun = purrr::map(test_fun, ~ switch(!is.na(.x),
      rlang::parse_expr(.x)
    )),
    fun_to_run = purrr::map(fun_to_run, ~ rlang::parse_expr(.x)),
    pseudo_code = stringr::str_glue("`{pseudo_code}`")
  )

df_translations <- readxl::read_excel("data-raw/gtsummary_translated.xlsx")
if (nrow(df_translations) != nrow(df_translations |> dplyr::select(en) |> dplyr::distinct())) {
  stop("STOOOOOOOOOPPPPP, error in the translations data")
}

special_char <- list()
special_char$interpunct <- "·"

usethis::use_data(df_theme_elements,
  df_translations,
  special_char,
  df_add_p_tests,
  internal = TRUE, overwrite = TRUE
)