1

我正在尝试自动运行一个 r 脚本以每小时下载一个私人 Google 表格。当我以交互方式使用 R 时，它总是可以正常工作。在我使用launchd.

在我开始使用launchd. 我认为问题在于一小时后访问令牌发生了变化，并且非交互式版本没有等待 OAuth 令牌的自动刷新。这是我从错误报告中得到的错误：

自动刷新陈旧的 OAuth 令牌。gzfile(file, mode) 中的错误：无法打开连接调用：gs_auth ... -> -> cache_token -> saveRDS -> gzfile 另外：警告消息：在 gzfile(file, mode) 中：无法打开压缩文件'。 httr-oauth'，可能的原因'权限被拒绝'执行停止

我正在使用 Jenny Bryan 的 googlesheets 包。这是我最初用于注册工作表的代码，然后保存 oAuth 令牌：

gToken <- gs_auth() # Run this the first time to get the oAuth information
saveRDS(gToken, "/Users/…/gToken.rds") # Save the oAuth information for non-interactive use

然后我在我自动化的文件中使用以下脚本launchd：

gs_auth(token = "/Users/…/gToken.rds")

使用自动运行脚本时如何避免此错误launchd？

4

1 回答 1

0

我不知道launchd，但是当我想从Windows任务计划器自动运行R脚本时遇到了同样的问题。将“缓存”属性值更改为 FALSE 对我有用 [1]：https ://i.stack.imgur.com/pprlC.png

您可以在这里找到解决方案：https ://github.com/jennybc/googlesheets/issues/262

为了在浏览器中进行一次身份验证以获取令牌文件，我这样做了：

token_file <- gs_auth(new_user = TRUE, cache = FALSE)
saveRDS(token_file, "googlesheets_token.rds")

之后通过以下方式自动登录：

gs_auth(token = paste0(path_scripts, "googlesheets_token.rds"), 
verbose = TRUE, cache = FALSE)
于 2017-07-31T14:23:47.950 回答