R/00.05_prepare_bnvd_ventes.R

In CedricMondy/bnvd: 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, 
           substance, cas, code_parametre, quantite) %>% 
    bind_rows(.,
              group_by(., annee, substance, cas, code_parametre) %>% 
                summarise(quantite = sum(quantite)) %>% 
                mutate(departement = "FRANCE"))
}