R/00.10_import_metabolites.R

In CedricMondy/bnvd: Explore French pesticide data

#' @import dplyr
import_metabolites <- function(){
  readxl::read_excel(path = system.file("extdata",
                                "liste_top_substances_PPDB_VALID.xlsx",
                                package = "bnvd"),
             sheet = 1, col_types = "text", na = "NA") %>% 
    filter(PPDB_SDES %in% c("VALID", "PPDB")) %>% 
    select(substance = SUBSTANCE,
           code_cas_substance = CAS_SUB,
           code_sandre_substance = CD_SUB,
           metabolite = METABOLITE,
           code_cas_metabolite = CAS_MET,
           code_sandre_metabolite = CD_MET)
}