R/uploadExam.R

In tpemartin/examR:

upload_googledrive <- function(destfile){
  googledrive::drive_auth(token=.token)
  googledrive::drive_upload(
    destfile,
    path = googledrive::as_id("https://drive.google.com/drive/folders/1IL5L2s_gaUTcwXk6OAalTHyOsswswaq0?usp=sharing"),
    verbose = F
  )
}