R Shiny调用SQL Server报表服务器遇401未授权问题及需求咨询

核心原因 #

SQL Server报表服务（SSRS）默认启用Windows集成身份验证（NTLM/Kerberos），普通download.file或未配置认证的httr请求无法通过身份校验，导致401 Unauthorized错误。以下是针对性的可行实现方案：

一、基于httr的NTLM认证实现（推荐） #

针对Windows域环境下的SSRS，用httr显式配置NTLM认证，同时完成PDF保存与UI展示：

1. 依赖包安装 #

install.packages(c("httr", "shiny", "shinyjs"))

2. 完整Shiny代码示例 #

library(shiny)
library(httr)
library(shinyjs)

ui <- fluidPage(
  useShinyjs(),
  titlePanel("SSRS PDF报表生成"),
  sidebarLayout(
    sidebarPanel(
      textInput("report_param", "输入报表参数"),
      actionButton("gen_report", "生成并查看报表"),
      downloadButton("dl_pdf", "下载报表")
    ),
    mainPanel(
      uiOutput("pdf_preview")
    )
  )
)

server <- function(input, output, session) {
  # 配置SSRS地址与凭证（建议从环境变量读取，避免硬编码）
  ssrs_base_url <- "http://你的SSRS服务器/ReportServer?/报表文件夹/报表名&参数名={param}&rs:Format=PDF"
  ssrs_cred <- list(
    user = Sys.getenv("SSRS_USER"),
    pwd = Sys.getenv("SSRS_PWD"),
    domain = Sys.getenv("SSRS_DOMAIN")
  )
  
  # 生成并保存PDF的核心函数
  fetch_ssrs_pdf <- function(param_value) {
    # 替换URL中的参数
    req_url <- gsub("{param}", URLencode(param_value), ssrs_base_url)
    
    # 发送带NTLM认证的请求，直接写入临时文件
    resp <- GET(
      url = req_url,
      authenticate(user = ssrs_cred$user, password = ssrs_cred$pwd, type = "ntlm"),
      write_disk(temp_pdf <- tempfile(fileext = ".pdf"), overwrite = TRUE)
    )
    
    # 校验请求状态
    if (http_status(resp)$category != "Success") {
      stop(paste("请求失败：", http_status(resp)$message))
    }
    temp_pdf
  }
  
  # 生成按钮触发逻辑
  observeEvent(input$gen_report, {
    tryCatch({
      temp_pdf_path <- fetch_ssrs_pdf(input$report_param)
      
      # 将PDF复制到指定保存路径
      target_dir <- "你指定的保存路径"
      if (!dir.exists(target_dir)) dir.create(target_dir, recursive = TRUE)
      final_pdf_path <- file.path(target_dir, paste0("报表_", Sys.time(), ".pdf"))
      file.copy(temp_pdf_path, final_pdf_path, overwrite = TRUE)
      
      # 配置Shiny静态资源路径，让UI能访问PDF
      addResourcePath("saved_reports", target_dir)
      
      # 在UI中嵌入PDF预览
      output$pdf_preview <- renderUI({
        tags$iframe(
          src = paste0("saved_reports/", basename(final_pdf_path)),
          width = "100%",
          height = "700px",
          style = "border: none;"
        )
      })
      
      showNotification("报表生成并保存成功", type = "message")
    }, error = function(e) {
      showNotification(paste("错误：", e$message), type = "error")
    })
  })
  
  # 下载按钮逻辑
  output$dl_pdf <- downloadHandler(
    filename = function() {
      paste0("SSRS报表_", Sys.Date(), ".pdf")
    },
    content = function(file) {
      temp_pdf_path <- fetch_ssrs_pdf(input$report_param)
      file.copy(temp_pdf_path, file)
    }
  )
}

shinyApp(ui, server)

二、替代方案：使用curl命令行工具 #

如果httr的NTLM认证仍存在兼容性问题，可调用系统curl（原生支持NTLM）：

fetch_pdf_via_curl <- function(param_value) {
  req_url <- gsub("{param}", URLencode(param_value), ssrs_base_url)
  temp_pdf <- tempfile(fileext = ".pdf")
  
  # 构建curl命令（Windows环境下需用双引号转义）
  curl_cmd <- sprintf(
    'curl -u "%s@%s:%s" -L -o "%s" "%s"',
    ssrs_cred$user, ssrs_cred$domain, ssrs_cred$pwd, temp_pdf, req_url
  )
  
  # 执行命令
  system(curl_cmd, wait = TRUE)
  
  # 校验文件是否生成
  if (!file.exists(temp_pdf) || file.size(temp_pdf) == 0) {
    stop("curl执行失败，未生成有效PDF")
  }
  temp_pdf
}

三、关键注意事项 #

1. 凭证安全性：绝对不要硬编码账号密码，通过Sys.getenv()读取环境变量，或使用加密配置文件。
2. 静态资源访问：Shiny只能直接访问www目录下的文件，需用addResourcePath()映射自定义保存路径。
3. 权限校验：确保Shiny运行的系统用户对指定保存路径有读写权限，同时SSRS服务器允许该用户访问目标报表。
4. Kerberos环境：若SSRS使用Kerberos认证，无需显式传入凭证，确保R运行环境已获取Kerberos票据（如执行kinit命令）即可。

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