部署R脚本至shinyapps.io：解决httr调用Google Fit API无法唤起浏览器认证问题

问题根源 #

本地环境中httr::oauth2.0_token能直接唤起浏览器完成认证，但部署到shinyapps.io这类服务器环境时，无法交互式启动浏览器，只能输出认证URL，导致用户无法完成登录流程。

可行解决方案 #

1. 改用gargle包适配Shiny的OAuth流程 #

gargle是专门为R与Google API交互设计的包，原生支持Shiny环境下的OAuth认证，能在Shiny应用内引导用户完成浏览器登录。

修改后的Shiny应用代码示例：

library(shiny)
library(gargle)
library(RGoogleFit)

# 从JSON文件加载OAuth客户端配置
google_client <- gargle_oauth_client_from_json("client_secret_xxxxxxxxxxxx.apps.googleusercontent.com.json")

ui <- fluidPage(
  titlePanel("Google Fit 步数查询"),
  actionButton("trigger_auth", "登录Google账号"),
  hr(),
  tableOutput("fit_steps_table")
)

server <- function(input, output, session) {
  # 存储认证token的响应式变量
  auth_token <- reactiveVal(NULL)
  
  # 点击按钮触发认证流程
  observeEvent(input$trigger_auth, {
    fetched_token <- token_fetch(
      scopes = "https://www.googleapis.com/auth/fitness.activity.read",
      client = google_client,
      app = gargle_oauth_app_from_client(google_client)
    )
    auth_token(fetched_token)
  })
  
  # 渲染步数数据表格
  output$fit_steps_table <- renderTable({
    # 等待token获取完成
    req(auth_token())
    
    current_token <- auth_token()$credentials$access_token
    # 调用Google Fit API获取步数数据
    steps_data <- GetFitDataset(
      token = current_token,
      data_source_id = "derived:com.google.step_count.delta:com.google.android.gms:estimated_steps",
      start_time = as.POSIXct(as.Date("2023-05-01")),
      end_time = as.POSIXct(as.Date("2023-06-04"))
    )
    
    steps_data
  })
}

shinyApp(ui, server)

2. 配置Google OAuth客户端的重定向URI #

在Google Cloud Console中，必须将你的shinyapps.io应用URL添加到OAuth客户端的已授权重定向URI列表：

• 格式示例：https://<你的应用名称>.shinyapps.io/（根路径应用）
• 如果应用有子路径，需对应调整为https://<你的应用名称>.shinyapps.io/<子路径>/
• 本地测试时，可添加http://localhost:3838（Shiny默认端口）

3. 安全管理客户端密钥 #

• 不要将client_secret.json文件提交到版本控制系统（如Git）
• 可通过shinyapps.io的环境变量功能存储客户端ID和密钥，再在代码中读取：

  google_client <- gargle_oauth_client(
    id = Sys.getenv("GOOGLE_CLIENT_ID"),
    secret = Sys.getenv("GOOGLE_CLIENT_SECRET"),
    name = "myapp",
    redirect_uri = "https://<你的应用名称>.shinyapps.io/"
  )
  

部署注意事项 #

1. 确保gargle、shiny、RGoogleFit等依赖包已在shinyapps.io环境中正确安装（可通过renv或packrat管理依赖）
2. 部署前先在本地运行修改后的Shiny应用，确认认证和数据获取流程正常
3. 若遇到权限问题，检查Google Cloud Console中是否已启用Google Fitness API

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