01-get_data.R

library(googledrive)
library(fs)

usage_reports <- drive_ls("https://drive.google.com/drive/folders/1E3LuHI1jTm22cz7xXAjScMkQcMupuH8M")
purrr::walk2(usage_reports$id, usage_reports$name, \(id, name) {
  dir_create(path("data", "usage"))
  drive_download(id, path = path("data", "usage", name))
})

registration_reports <- drive_ls("https://drive.google.com/drive/folders/1DOVUhsCiW-nE-6q3ehsjBEYulzt_l4Pl")
purrr::walk2(registration_reports$id, registration_reports$name, \(id, name) {
  dir_create(path("data", "registration"))
  drive_download(id, path = path("data", "registration", name))
})