R/f_cpi_nl_down.R

In fthielen/tatooheen: Technology Appraisal TOOlbox for Health Economic Evaluations in the Netherlands

#' A wrapper function to download CBS data for the CPI.
#' @param save_cbs_data Should CPI data be saved? Standard is TRUE
#' @param save_dir Directory where data should be saved. Standard is "data/cbs/"
#' @param file_name File name for the saved CPI data. Standard is "cbs_cpi.RDS
#' @keywords Generic, CBS, CPI
#' @export f_cpi_nl_down

f_cpi_nl_down <- function(
                save_cbs_data = TRUE,
                save_dir = "data/cbs/",
                file_name = "cbs_cpi.RDS"){

        require("cbsodataR")
        require("here")
        require("dplyr")

       df_cpi <- cbsodataR::cbs_get_data("83131ned") %>%
                cbsodataR::cbs_add_date_column() %>%
                cbsodataR::cbs_add_label_columns() %>%
                filter(Perioden_freq == "Y",
                       Bestedingscategorieen_label == "000000 Alle bestedingen") %>%
                select(Bestedingscategorieen_label, Perioden_label, CPI_1 )

        if (save_cbs_data) {
                if (!dir.exists(here::here(save_dir))) {
                        dir.create(here::here(save_dir), recursive = T)
                }

             readr::write_rds(x = df_cpi, file = here(paste0(save_dir, file_name)))
        }

        df_cpi

}