data-raw/prepare_dataset.R

In ThinkR-open/clientapp: A Shiny template for client database exploration

# Create fake dataset using internal ThinkR package
library(dplyr)
library(fakir)
database <- fake_ticket_client(vol = 1500, n = 500, seed = 4321, split = TRUE)

clients <- database$clients %>%
  arrange(id_dpt, departement) %>%
  tidyr::fill(departement) %>%
  mutate(
    entry_year = lubridate::year(entry_date),
    age_class = cut(age, breaks = c(18, 25, 40, 55, 70, 100),
                    include.lowest = TRUE))

usethis::use_data(clients, overwrite = TRUE)

tickets <- database$tickets %>%
  left_join(database$clients, by = "num_client")

# Map of France
fra_sf <- raster::getData('GADM', country = 'FRA', level = 2, path = "data-raw") %>%
  sf::st_as_sf(fra.sp) %>%
  rename(
    pays = NAME_0,
    region = NAME_1,
         departement = NAME_2,
         id_dpt = CCA_2) %>%
  mutate(n_dpt = formatC(id_dpt, width = 2, flag = "0")) %>%
  select(OBJECTID, pays, region, departement, id_dpt)

usethis::use_data(fra_sf, overwrite = TRUE)