Backs up all documents in your google docs folder to a local directory

google_docs_backup.R

library(googledrive)
library(dplyr)

# Make a directory for todays date
date <- as.character(Sys.Date())

# Set the location for where the docs should be saved
outdir <- paste0("~/Dropbox/work/google_docs_backups/", date)

if (!dir.exists(outdir)) {
  dir.create(outdir)
}


# Find all documents
docs <- drive_find(type = "document") %>%
  mutate(outname = paste(outdir, name, sep = "/"))

# Download them
for (desired_file in 1:nrow(docs)) {
  drive_download(
    file = as_id(docs$id[desired_file]),
    path = docs$outname[desired_file],
    overwrite = TRUE
  )
}