R/read_excel_all.R

In botan/bfun: Personal R Package of Botan Ağın

#' @export
read_excel_all <- function(path, na = c("", "#N/A", "NULL"), guess_max = 1048526) {
  sheet_names <- readxl::excel_sheets(path)
  sheet_names_tidy <- snakecase::to_snake_case(sheet_names)

  sheet_names %>%
    purrr::map(readxl::read_excel,
               path = path,
               na = na,
               guess_max = guess_max,
               .name_repair = janitor::make_clean_names) %>%
    purrr::set_names(sheet_names_tidy) %>%
    list2env(globalenv())
}