R/00.02_import_correspondances.R

In CedricMondy/bnvd: Explore French pesticide data

#' @import dplyr
import_correspondances <- function() {
  suppressMessages(
    readr::read_delim(system.file("extdata",
                                  "afb_amm_substance_cas_code_sandre.csv",
                                  package = "bnvd"),
                      col_types = list(substance   = readr::col_character(),
                                       cas         = readr::col_character(),
                                       code_sandre = readr::col_character()),
                      delim = ";", locale = readr::locale(decimal_mark = ","))) %>%
    select(substance, code_sandre)           %>%
    distinct() %>% 
    bind_rows(.,
              c(substance = "flupyrsulfuron-methyle",
                code_sandre = "2565"),
              c(substance = "huile blanche parafinique",
                code_sandre = NA_character_),
              c(substance = "valiphenal",
                code_sandre = "8045"))
}