已部署Shiny应用读取私有GitHub仓库CSV文件的实现方案

1. 创建GitHub个人访问令牌（PAT） #

• 登录GitHub，进入Settings > Developer settings > Personal access tokens > Tokens (classic)
• 生成新令牌，勾选repo权限（访问私有仓库必需），设置有效期后复制生成的令牌（仅显示一次，务必妥善保存）

2. 在shinyapps.io中配置环境变量 #

• 登录shinyapps.io，找到目标应用，进入Settings > Environment
• 添加环境变量，变量名设为GITHUB_PAT，值填写刚才生成的GitHub PAT，保存设置

3. 修改Shiny应用的读取代码 #

方法一：用httr包发送带认证的请求 #

直接通过HTTP请求获取私有文件的原始内容：

library(shiny)
library(httr)
library(base64enc)

# 填写你的仓库信息
owner <- "你的GitHub用户名"
repo <- "私有仓库名称"
file_path <- "仓库内CSV文件的路径，比如data/raw_data.csv"

# 构造GitHub API请求地址
api_url <- sprintf("https://api.github.com/repos/%s/%s/contents/%s", owner, repo, file_path)

# 发送带认证的请求
response <- GET(
  api_url,
  add_headers(Authorization = paste("token", Sys.getenv("GITHUB_PAT")))
)

# 解析返回内容，解码base64格式的CSV数据
content_json <- content(response, as = "parsed")
csv_content <- rawToChar(base64decode(content_json$content))

# 读取CSV为数据框
data <- read.csv(text = csv_content)

# 后续Shiny应用逻辑
ui <- fluidPage(
  # 你的UI代码
)

server <- function(input, output) {
  # 你的服务器端代码，直接使用data变量
}

shinyApp(ui = ui, server = server)

方法二：用gh包简化GitHub API调用 #

gh包封装了GitHub API，代码更简洁：

library(shiny)
library(gh)
library(base64enc)

# 填写仓库信息
owner <- "你的GitHub用户名"
repo <- "私有仓库名称"
file_path <- "仓库内CSV文件的路径"

# 获取文件内容
file_info <- gh(
  "/repos/{owner}/{repo}/contents/{path}",
  owner = owner,
  repo = repo,
  path = file_path,
  .token = Sys.getenv("GITHUB_PAT")
)

# 解码并读取CSV
csv_content <- rawToChar(base64decode(file_info$content))
data <- read.csv(text = csv_content)

# 后续Shiny应用逻辑
ui <- fluidPage(...)
server <- function(input, output) {...}
shinyApp(ui, server)

关键注意事项 #

• 绝对不要将PAT硬编码在代码中，使用环境变量是安全的做法，避免令牌泄露
• 确保GitHub PAT勾选了repo权限，否则无法访问私有仓库内容
• 本地测试时，可通过Sys.setenv(GITHUB_PAT = "你的令牌")临时设置环境变量，验证通过后再部署

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