R/00.05_prepare_bnvd_ventes.R

In AFB-dataviz/dataviz_pesticides: Explore French pesticide data

#' @import dplyr
prepare_bnvd_ventes <- function(data, liste) {
  left_join(data, liste, by = "substance") %>%
    filter(!is.na(code_parametre))                %>%
    select(departement, annee, 
           type_substance, code_parametre, 
           substance, classification,
           quantite) %>% 
    bind_rows(.,
              group_by(., annee, type_substance, 
                       code_parametre, substance, 
                       classification
                       ) %>% 
                summarise(quantite = sum(quantite)) %>% 
                mutate(departement = "FRANCE")) 
}