R/prep_ventes.R

In CedricMondy/afbBNVD: Explore the BNVD

#' Prepare data of total sales
#'
#' @import dplyr
#' 
prep_ventes <- function(bnvd_data) {
    group_by_at(bnvd_data, .vars = c("departement", "annee")) %>%
        summarise(quantite = sum(quantite)) %>%
        ungroup() %>%
        filter(!is.na(quantite))
}