R Shiny App本地可写Google Sheet，部署至shinyapps.io后失效

排查方向及修复方案 #

1. 显式指定凭证，绕过缓存问题 #

shinyapps.io自动缓存的令牌可能没正确关联你的服务账号，别依赖自动发现，直接指定凭证文件路径：

# 在写入操作前加载凭证，关闭缓存避免冲突
gs4_auth(path = "你的服务账号凭证.json", cache = FALSE)

部署时务必把凭证文件和app.R放在同一目录，且部署时勾选该文件上传。

2. 确认写入代码是否真的执行 #

在observeEvent里加日志输出，看shinyapps.io的日志里有没有写入相关的记录：

observeEvent(input$submit_button, {
  # 处理数据逻辑...
  cat("准备写入Google Sheet\n")
  sheet_append(ss = "你的表格ID/URL", data = results.df)
  cat("写入操作执行完毕\n")
})

如果日志里只有"准备写入"没有"执行完毕"，说明写入过程被阻塞了。

3. 检查服务账号的API权限 #

• 去Google Cloud控制台，确认你的项目里Google Sheets API已经启用。
• 重新生成一次服务账号密钥，替换旧的凭证文件，避免旧密钥失效。
• 再次确认服务账号邮箱已经被添加为目标Sheet的编辑者，并且没有被限制权限。

4. 用反应式存储替代全局变量 #

如果results.df存在全局环境里，在shinyapps.io的多实例环境下容易出问题，换成reactiveVal存数据：

# 初始化反应式数据容器
user_results <- reactiveVal(data.frame())

observeEvent(input$select_product, {
  new_record <- data.frame(
    timestamp = Sys.time(),
    product = input$select_product
    # 其他字段...
  )
  user_results(rbind(user_results(), new_record))
})

observeEvent(input$submit, {
  gs4_auth(path = "cred.json", cache = FALSE)
  sheet_append(ss = "sheet_id", data = user_results())
})

5. 避免进程提前终止 #

shinyapps.io会在应用空闲时终止进程，如果写入还没完成就被停掉，数据就写不进去。可以加个短暂延迟确保写入完成：

write_status <- sheet_append(ss = "sheet_id", data = results.df)
# 打印返回状态，确认是否有隐藏错误
print(write_status)
Sys.sleep(1) # 给写入操作留够执行时间

内容的提问来源于stack exchange，提问作者SJMB