data-raw/DATASET.R

In ThinkR-open/inca3: Donnees De L'Etude INCA 3

## code to prepare `DATASET` dataset goes here

usethis::use_data("DATASET")

library(tidyverse)

### unzip big file
unzip("data-raw/conso-compo-alim.csv.zip", exdir = "data-raw/")

nn <- list.files(path = "data-raw/",pattern = "csv$",full.names = TRUE) 

tout <- nn %>% 
  map(read_csv2) %>% 
  set_names(
    
    basename(nn) %>% str_remove("[.]csv") %>% str_replace_all("-","_")
    
  )
list2env(tout,envir = .GlobalEnv)

for ( i in names(tout)){
  print(i)
  eval(parse(text = glue::glue("try(usethis::use_data(`{i}`,overwrite=FALSE))") ))
}

zip("data-raw/conso-compo-alim.csv.zip", "data-raw/conso-compo-alim.csv")