20210514_classroom.R

library(magrittr)

id <- googledrive::as_id("1cBZc8_YqZB7bQYxjn9G9tHfggT77plk5UggSaW08jQqgWWoaskST5uFh4YcPtPLeL57se_Db")
infos <- googledrive::drive_ls(id)

dados_arquivos <- infos %>% 
  dplyr::mutate(pessoa = purrr::map_chr(
    drive_resource, purrr::pluck, "lastModifyingUser", "displayName"
  )) %>% 
  dplyr::mutate(
    pessoa = janitor::make_clean_names(pessoa),
    nome_arquivo = paste0(pessoa, "_", name)
  )

path <- "~/Downloads/correcao_ex1"
fs::dir_create(path)

with(dados_arquivos, purrr::walk2(id, nome_arquivo, ~{
  message(.y)
  id <- googledrive::as_id(.x)
  googledrive::drive_download(id, paste0(path, "/", .y))
}))