部署含rtweet的Shiny应用至服务器失败，寻求技术解决方案

• 本地运行基于rtweet包的Shiny应用一切正常，但部署至服务器后出现以下错误：

  Error detecting locale: Error in read.table(file = file, header = header, sep = sep, quote = quote: incomplete final line found by 'readTableHeader' in 'raw'

• 最小复现代码：

library(shiny)
library(rtweet)

ui <- fluidPage(
    textOutput("tweet")
)

server <- function(input, output) {
  
  output$tweet <- renderText({
    tweets <- get_timeline(user = "JoeBiden", n = 1)
    tweets$full_text[1]
  })

}

shinyApp(ui = ui, server = server)

• 已尝试方案：
  • 使用无浏览器的token生成函数，触发403 Twitter API错误
  • 尝试rtweet_user()、rtweet_bot()、rtweet_app()认证方法，均未解决问题
• 需求：优先实现不明文写入密钥的服务器运行方案，任何可行方案均可接受

一、先解决Locale检测错误 #

该错误源于服务器环境的locale配置异常，或rtweet自动检测locale时的文件读取问题，可通过以下两种方式修复：

1. 在应用内强制设置或禁用locale #

在Shiny应用开头添加代码：

# 方式1：强制设置服务器支持的locale（示例为英文环境，根据实际调整）
Sys.setlocale(category = "LC_ALL", locale = "en_US.UTF-8")

# 方式2：直接禁用rtweet的locale自动检测
options(rtweet.use_locale = FALSE)

2. 配置服务器全局locale（针对Shiny Server/Posit Connect） #

在服务器的/etc/R/Renviron文件中添加以下内容，重启服务器生效：

LC_ALL=en_US.UTF-8
LANG=en_US.UTF-8

二、安全处理Twitter认证（无明文密钥） #

方法1：使用服务器环境变量 #

这是最推荐的安全方案，将密钥存储在服务器环境中，而非代码里：

1. 在服务器配置环境变量：
   在应用目录下创建.Renviron文件，添加以下内容（替换为你的真实密钥）：

   TWITTER_API_KEY=你的API密钥
   TWITTER_API_SECRET=你的API密钥密码
   TWITTER_BEARER_TOKEN=你的Bearer Token（仅App-only认证需要）
   TWITTER_ACCESS_TOKEN=你的用户访问Token（Bot认证需要）
   TWITTER_ACCESS_SECRET=你的用户访问Token密码（Bot认证需要）
   

   然后设置文件权限为600，避免其他用户读取：

   chmod 600 .Renviron
   

2. 在应用中读取环境变量并完成认证：
   针对get_timeline这类获取公开数据的场景，推荐使用App-only认证（无需用户授权）：

   library(shiny)
   library(rtweet)
   
   # 从环境变量读取认证信息
   bearer_token <- Sys.getenv("TWITTER_BEARER_TOKEN")
   
   # 创建App-only认证并设置为全局默认
   auth <- rtweet_app(bearer_token = bearer_token)
   auth_as(auth)
   
   ui <- fluidPage(
       textOutput("tweet")
   )
   
   server <- function(input, output) {
     output$tweet <- renderText({
       tweets <- get_timeline(user = "JoeBiden", n = 1)
       tweets$full_text[1]
     })
   }
   
   shinyApp(ui = ui, server = server)
   

   如果需要用户级操作（如发推），则改用Bot认证：

   auth <- rtweet_bot(
     api_key = Sys.getenv("TWITTER_API_KEY"),
     api_secret = Sys.getenv("TWITTER_API_SECRET"),
     access_token = Sys.getenv("TWITTER_ACCESS_TOKEN"),
     access_secret = Sys.getenv("TWITTER_ACCESS_SECRET")
   )
   auth_as(auth)
   

方法2：使用加密的Token文件 #

若无法配置环境变量，可在本地生成Token并加密后上传至服务器：

1. 本地生成并加密Token：

   library(rtweet)
   library(openssl)
   
   # 本地生成认证（根据需求选rtweet_app/rtweet_bot）
   auth <- rtweet_app()
   # 加密保存Token，设置加密密码
   write_rds(auth, "twitter_auth.rds", password = "你的加密密码")
   

2. 服务器端读取加密Token：
   将twitter_auth.rds上传至服务器，然后在应用中读取（密码仍通过环境变量传递）：

   library(shiny)
   library(rtweet)
   library(openssl)
   
   # 从环境变量取加密密码，读取并解密Token
   auth <- read_rds("twitter_auth.rds", password = Sys.getenv("TWITTER_AUTH_PASSWORD"))
   auth_as(auth)
   
   ui <- fluidPage(
       textOutput("tweet")
   )
   
   server <- function(input, output) {
     output$tweet <- renderText({
       tweets <- get_timeline(user = "JoeBiden", n = 1)
       tweets$full_text[1]
     })
   }
   
   shinyApp(ui = ui, server = server)
   

   同时在服务器.Renviron中添加TWITTER_AUTH_PASSWORD=你的加密密码。

三、403错误排查 #

若仍出现403错误，需检查：

• 确认Twitter API密钥已启用对应端点权限（get_timeline需API v2的users/timelines权限）
• 检查Bearer Token/API密钥是否有效，未过期或被限制
• 确认服务器IP未被Twitter API列入黑名单

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