data-raw/clients_bayer.R

In brunocarlin/nflistBayer: Nflist organization for bayer

## code to prepare `clients_bayer` dataset goes here

clients_bayer1 <- readxl::read_excel("C:/Users/bcarl2/Bayer/C&C Monsanto Legacy - Especialistas/Revisao_Cidades_Clientes_Especialistas.xlsx",
  sheet = "Clientes_Bayer", col_types = c(
    "numeric",
    "text", "text", "text", "text", "text",
    "text", "numeric", "text", "text",
    "text", "text", "text", "text", "text",
    "text", "text", "text", "text", "text",
    "text", "text", "text", "text", "numeric",
    "numeric", "text", "text", "text",
    "text", "text", "text", "numeric",
    "numeric", "numeric", "text", "text",
    "numeric", "text"
  )
) %>%
  janitor::clean_names()

clients_bayer <- clients_bayer1 %>%
  select(parceiro_negocios_bayer_1, nome_grupo_agregado_monsanto_bayer, uf_matriz, cidade_matriz, uf_matriz, consultor_interno, classe_de_risco) %>%
  rename(parceiro_negocios_bayer = parceiro_negocios_bayer_1)

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