Update gdrive_download() to use dribble (not path)

rstudio · Sep 8, 2023 · 0520983 · 0520983
1 parent d724f8b
commit 0520983
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/board_gdrive.R b/R/board_gdrive.R
@@ -202,7 +202,10 @@ gdrive_file_exists <- function(board, name) {
 gdrive_download <- function(board, key) {
   path <- fs::path(board$cache, key)
   if (!fs::file_exists(path)) {
-    googledrive::drive_download(key, path)
+    dribble <- googledrive::as_dribble(fs::path_dir(key))
+    dribble <- googledrive::drive_ls(dribble)
+    dribble <- dribble[dribble$name == fs::path_file(key),]
+    googledrive::drive_download(dribble, path)
     fs::file_chmod(path, "u=r")
   }
   path