data-raw/clrs_bayer_brasil.R

In brunocarlin/nflistBayer: Nflist organization for bayer

file_paths <- list.files("inst/extdata/data/bayer/clrs/", full.names = TRUE)



clrs_bayer_brasil_history <- map_df(file_paths, readxl::read_excel) %>%
  janitor::clean_names()

clrs_bayer_brasil <- clrs_bayer_brasil_history %>%
  filter(c_risc == "I") %>%
  group_by(nome_do_cliente, cod_cliente) %>%
  summarise(
    casos = n(),
    faturamento = sum(valor_brl)
  ) %>%
  ungroup()



usethis::use_data(clrs_bayer_brasil, overwrite = TRUE, compress = "xz")