data-raw/uppmax-scripts/bikes_allcw.R

############################################################
### COMBINE MULTIPLE DATA FRAMES FROM THE UPPMAX FOLDER  ###
############################################################

library(data.table)

files <- list.files(path = 'data-raw/uppmax-raw/')
files2 <- paste0("data-raw/uppmax-raw/", files)
dat_list <- lapply(files2, function (x) data.table(readRDS(x)))
bikes_nomatch <- rbindlist(dat_list)

saveRDS(bikes_nomatch, file = "data-raw/bikesharing-tempdata/bikes_allcw_nomatch.Rds")
ooelrich/oscbvar documentation built on Sept. 8, 2021, 3:31 p.m.