在 R 中从 Google Drive 下载 xlsx 文件

Question

我在 Google 云端硬盘上公开共享了一个小型数据集，并且任何知道该链接的人都可以访问该文件。

我希望将此文件下载到 R 中进行分析，但我在从临时目录中解压缩该文件时遇到困难。

我的代码如下：

install.packages("pacman")
library(pacman)
#Load Libraries
pacman::p_load(tidyverse,tidymodels,modeltime,timetk,googledrive)

temp <- tempfile(fileext = ".zip")

dl <- drive_download(
  as_id("https://drive.google.com/file/d/17ZhE3nxqtGYNzeADMzU02YzfKU9H9f5j/view?usp=sharing"),
  path = temp, 
  overwrite = TRUE, 
  type = "xlsx")

out <- unzip(temp, exdir = tempdir())

#Import Data
Three_Time_Series <- read_excel(out[1])

当我检查

out

变量时，我看到它是一个大小为 1:10 的字符向量，但每个字符串引用和 xml 文件。在最后一行，我尝试阅读

out[1:10]

，但每次它都说：

Error: Can't establish that the input is either xls or xlsx. 

任何提示将不胜感激。

Answer 1

您拥有的是用于查看的URL，您应该获取用于编辑/下载文件的URL。

以下内容对我有用。

library(googledrive)

dl <- drive_download(
 as_id("https://docs.google.com/spreadsheets/d/17ZhE3nxqtGYNzeADMzU02YzfKU9H9f5j/edit#gid=1748893795"),
  path = 'temp1.xlsx', 
  overwrite = TRUE, 
  type = "xlsx")


Three_Time_Series <- readxl::read_excel('temp1.xlsx')
Three_Time_Series

# A tibble: 528 x 3                                                                                                
#   DATE_TIME           CELL  AVG_SIGNAL_LEVEL
#   <chr>               <chr>            <dbl>
# 1 04.21.2017 10:00:00 CELL1            -106.
# 2 04.21.2017 10:00:00 CELL2            -105.
# 3 04.21.2017 10:00:00 CELL3            -105.
# 4 04.21.2017 11:00:00 CELL1            -106.
# 5 04.21.2017 11:00:00 CELL3            -105.
# 6 04.21.2017 11:00:00 CELL2            -105.
# 7 04.21.2017 12:00:00 CELL2            -105.
# 8 04.21.2017 12:00:00 CELL1            -106.
# 9 04.21.2017 12:00:00 CELL3            -105.
#10 04.21.2017 13:00:00 CELL1            -106.
# … with 518 more rows

Answer 2

对于具有多个选项卡的文件，如何修改解决方案？即使您指定“sheet =2”，该解决方案也只会拉出第一个选项卡。