data-raw/EPD_taxa_amalgamation.R

In special-uor/special.epd: SPECIAL Research Group's Version of the European Pollen Database (EPD)

## code to prepare `EPD_taxa_amalgamation` dataset goes here
`%>%` <- magrittr::`%>%`
EPD_taxa_amalgamation <-
  readxl::read_excel("inst/extdata/epd_taxa_list_2022-02-26_SPH.xlsx",
                     skip = 1) %>%
  janitor::clean_names() %>%
  dplyr::filter(clean_name %>%
                  stringr::str_to_lower() %>%
                  stringr::str_squish() %>%
                  stringr::str_detect("exclude", negate = TRUE)) %>%
  dplyr::mutate(epd_taxa = epd_taxa %>%
                  stringr::str_replace_all(" type", "-type"),
                clean_name = clean_name %>%
                  stringr::str_squish())
usethis::use_data(EPD_taxa_amalgamation, overwrite = TRUE)