inst/extdata/data-raw/fmt_functions_test.R

In ianmoran11/locatr: Easier Tidying of Data from Spreadsheets

library(stringr)
library(rlang)
library(dplyr)
library(purrr)

function_list <- lsf.str("package:locatr")

fmt_functions <- function_list %>% .[str_detect(.,"^fmt_") & !str_detect(.,"single")] %>% sort()

tidyxl_df <-
  locatr_example("worked-examples.xlsx") %>% xlsx_cells_fmt(sheets = "pivot-annotations")

fmt_functions_test <-
  map(fmt_functions[-c(14,15,19,20)],
          ~invoke(.x,format_id_vec =  tidyxl_df$local_format_id,
                  sheet_formats =  attr(tidyxl_df, "formats")) %>%
        as.character)

usethis::use_data(fmt_functions_test, overwrite = TRUE)