在 R 脚本中，当我尝试使用以下代码发送电子邮件时。它要求 gmailr 包请求访问您的 Google 帐户。选择一个预先授权的帐户或输入“0”以获取新令牌。按 Esc/Ctrl + C 中止。
1：email1@gmail.com
如果没有在控制台中手动输入 1，我的 R 脚本如何自动选择我的预授权帐户并相应地发送电子邮件？
library(gmailr)
gm_auth_configure(path="C:/Users/Google Drive/email.json")
my_email_message <- gm_mime() %>%
gm_to("email1@gmail.com") %>%
gm_from("email1@gmail.com") %>%
gm_subject("My test message")
gm_send_message(my_email_message)