如何在Shiny中实现可生成并下载带密码保护文件的下载按钮功能

不同文件格式的加密逻辑存在原生差异，不存在适配所有扩展名的通用加密方案，下面分两类场景给出可直接复用的实现：

方案1：全格式兼容方案（推荐） #

将生成好的自定义内容文件打包为带密码保护的ZIP压缩包，支持所有格式的文件加密，跨平台兼容性最好。
需提前安装依赖包：install.packages("zip")
修改后的downloadHandler代码示例：

library(shiny)
library(glue)
library(zip)

output$fileDownloader <- downloadHandler(
  filename = function() {
    paste(glue("password_protected_file_{input$name}_"), as.POSIXlt(Sys.time(), tz = "Asia/Kolkata"), ".zip", sep = "")
  },
  content = function(zip_output) {
    # 步骤1：生成带自定义内容的原始文件，可替换为任意格式生成逻辑
    # 示例：生成你原有逻辑的txt文件
    temp_file <- tempfile(fileext = ".txt")
    writeLines(glue("message_is_{input$message}_"), temp_file)
    
    # 若需要生成docx，可替换为officer的生成逻辑：
    # library(officer)
    # temp_file <- tempfile(fileext = ".docx")
    # doc <- read_docx() |> body_add_par(glue("message_is_{input$message}_"))
    # print(doc, target = temp_file)
    
    # 步骤2：打包为带密码的压缩包
    zip(
      zipfile = zip_output,
      files = temp_file,
      mode = "cherry-pick",
      password = "自定义密码" # 可替换为input$user_password，由用户前端输入密码
    )
  }
)

用户下载后输入对应密码解压即可得到原始文件，适配所有文件格式需求。

方案2：指定格式原生加密 #

如果不需要兼容多格式，可针对具体文件格式使用原生加密能力：

加密PDF实现 #

需提前安装依赖：install.packages(c("qpdf", "rmarkdown"))
Linux环境部署需要提前安装系统依赖：sudo apt install qpdf
先通过Rmarkdown渲染包含自定义内容的PDF，再用qpdf添加密码：

# 渲染生成带自定义内容的临时PDF
temp_pdf <- tempfile(fileext = ".pdf")
rmarkdown::render(
  input = "your_template.Rmd", # 模板内可通过params传递input$message渲染内容
  output_file = temp_pdf,
  params = list(custom_msg = input$message)
)
# 给PDF添加密码
qpdf::pdf_password_wr(
  input = temp_pdf,
  output = file,
  user_password = "访问密码",
  owner_password = "管理密码"
)

加密DOCX实现 #

Windows环境可通过RDCOMClient调用Office原生能力加密，跨平台场景优先选择方案1的ZIP打包逻辑。

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