如何在R中从网页下载的RAR压缩包内提取指定Excel文件？

步骤1：下载RAR压缩包 #

继续使用httr包的GET函数下载目标RAR文件，确保文件保存到本地：

library(httr)

# 目标RAR文件的URL
rar_url <- "https://www5.ine.gub.uy/documents/Estad%C3%ADsticasecon%C3%B3micas/SERIES%20Y%20OTROS/IPC/Base%20Octubre%202022=100/IPC%20-%20Base%20Octubre%202022=100.rar"

# 下载并保存到本地，覆盖已存在的文件
download_result <- GET(rar_url, write_disk("ipc_base_2022.rar", overwrite = TRUE))

# 验证下载是否成功（状态码200表示成功）
if (status_code(download_result) != 200) {
  stop("RAR文件下载失败，请检查URL或网络连接")
}

步骤2：用7-Zip提取指定Excel文件 #

利用本地已安装的7-Zip命令行工具，直接提取压缩包内的目标文件，无需解压整个包：

# 7-Zip可执行文件的路径（根据你的操作系统调整）
# Windows默认路径
seven_zip_path <- "C:/Program Files/7-Zip/7z.exe"
# macOS/Linux如果已安装并加入环境变量，可直接用 "7z"
# seven_zip_path <- "7z"

# 要提取的目标Excel文件名
target_xlsx <- "IPC General_Total Pais_Montevideo_Interior_base 2022.xlsx"

# 构建7-Zip提取命令
# e：提取文件到当前目录（不保留压缩包内的目录结构）
# -y：自动确认所有操作提示
extract_cmd <- paste(
  shQuote(seven_zip_path),
  "e",
  shQuote("ipc_base_2022.rar"),
  shQuote(target_xlsx),
  "-y"
)

# 执行提取命令
system(extract_cmd)

注意事项 #

• 如果压缩包内的目标文件包含子目录结构，将命令中的e替换为x，并可通过-o./目标目录指定提取后的保存路径（例如"-o./ipc_data"）
• 确保7-Zip的路径正确，若Windows下路径不同，可在开始菜单找到7-Zip，右键查看属性获取安装路径
• 提取完成后，可直接读取Excel文件：readxl::read_excel(target_xlsx)

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