r - 未经身份验证将数据添加到 Google 表格（R + googlesheets）

Question

是否可以在不提示用户身份验证的情况下向现有的公共 Google 表格添加行？我在闪亮的应用程序中有以下功能：

update <- function(URL, date, value){
    URL %>%
        gs_url() %>%
        gs_add_row(ws = 3, input = c(date, value))
}

但是当gs_add_row在本地调用时，它会打开一个浏览器，要求登录 Google 帐户。在shinyapps.io 上它崩溃（导致会话与服务器断开连接）。

我已确保 Google 表格已“发布到网络”。