Bajar ficheros de Google Drive

Resulta que en el ordenador del aula no me funcionan los usb (he probado 3), así que algunos ficheros que necesito en clase los subo a Google Drive.

Para descargar un fchero de Google Drive tienes que:

#- bajar ficheros de Google Drive: https://googledrive.tidyverse.org/
library(googledrive)  #-install.packages("googledrive")

# aa <- drive_find(n_max = 30)
# x <- drive_get(id = "....")

file_to_download <- "entrega_01.zip"
aa <- drive_get(file_to_download)

drive_download(file_to_download, path = file_to_download)
unzip(zipfile = file_to_download)