调度代码时，如何在R中的Google Sheets4中自动选择预授权帐户？

我正在试图找出什么方法可以自动允许googlesheet4软件包选择我的预授权帐户来下载特定的GoogleSheet

例如，我想每天运行一次以下程序-

library(googlesheets4)
delta<-read_sheet(
  "https://docs.google.com/spreadsheets/xyz...",
  sheet = "XYZ Delta"
)

如上所述，我已经在前面的步骤中为它提供了使用google表单的帐户访问权限。但它仍然要求我手动输入“1”来选择此帐户。 是否可以自动执行此操作，以便在自动调度此代码时不必手动输入“1”来运行此脚本

---

如果你能为我指出正确的方向，我将不胜感激

在阅读工作表之前调用

gs4\u auth

gs4_auth("xyz@gmail.com")

gs4_auth("xyz@gmail.com")