R/00.03_select_substances.R

In AFB-dataviz/dataviz_pesticides: Explore French pesticide data

#' @import dplyr
select_substances <- function(referentiel, correspondance){
  full_join(x  = referentiel,
            y  = correspondance,
            by = c("code_parametre" = "code_sandre")) %>%
    mutate(a_conserver = !is.na(CdGroupeParametres),
           NomGroupeParametres = iconv(x    = NomGroupeParametres,
                                       from = "UTF-8",
                                       to   = "ASCII//TRANSLIT"))  %>%
    arrange(desc(a_conserver), as.numeric(CdGroupeParametres), substance) %>%
    filter(a_conserver, !is.na(substance)) %>%
    select(substance, code_parametre, type_substance = NomGroupeParametres) %>% 
    group_by(substance, code_parametre) %>% 
    group_modify(.f = function(df, ...) {
      tibble(type_substance = paste(unique(df$type_substance), collapse = ", "))
    }) %>% 
    mutate(type_substance = if_else(type_substance == "NA", NA_character_, type_substance))
}