如何在R中直接读取受密码保护的ZIP压缩包内的CSV文件

完全可以做到，核心是通过内存流读取加密压缩包内的文件内容，全程不生成任何磁盘上的CSV物理副本。下面是具体实现方案：

依赖包准备 #

使用zip包处理加密ZIP文件，它支持直接将文件内容输出到内存连接，无需落地磁盘。先安装并加载包：

install.packages("zip")
library(zip)

读取流程代码 #

# 替换为你的加密ZIP路径、密码和目标CSV文件名
zip_path <- "your_encrypted.zip"
zip_pwd <- "your_password"
target_csv <- "data.csv"

# 创建内存文本连接，用于接收ZIP内的CSV内容
mem_conn <- textConnection("")

# 从加密ZIP中提取CSV到内存连接
zip::zip_extract(
  zipfile = zip_path,
  files = target_csv,
  password = zip_pwd,
  stdout = mem_conn
)

# 重置连接指针到内容开头，方便后续读取
seek(mem_conn, 0)

# 读取内存中的CSV数据（用read.csv或readr::read_csv都可以）
csv_data <- read.csv(mem_conn)

# 关闭内存连接
close(mem_conn)

关键说明 #

• 整个流程中，CSV内容仅在R的内存中传递，不会写入任何外部磁盘文件。
• zip包兼容AES加密和老式ZipCrypto加密的ZIP文件，覆盖绝大多数加密场景。
• 如果压缩包内只有目标CSV一个文件，可以省略files参数，zip_extract会自动提取唯一文件到内存连接。

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