如何在R中使用Chromote实现文件的“另存为”下载？

要通过Chromote模拟手动右键“另存为”的下载效果，核心是利用Chrome DevTools API配置下载行为并触发下载请求，同时保留会话上下文（比如登录状态、Cookie），这也是它比download.file()更适合复杂网页抓取场景的原因。以下是针对你提供的维基百科图片示例的具体实现：

步骤1：配置Chromote会话的下载参数 #

首先创建会话时指定下载目录，并禁用手动下载弹窗，确保文件自动保存到目标路径：

library(chromote)

# 替换为你的目标下载目录（确保有写入权限）
target_dir <- normalizePath("./chromote_downloads", mustWork = FALSE)
dir.create(target_dir, recursive = TRUE, showWarnings = FALSE)

# 初始化会话并配置下载选项
cs <- ChromoteSession$new(
  options = list(
    "download.default_directory" = target_dir,
    "download.prompt_for_download" = FALSE,  # 禁用下载弹窗
    "download.directory_upgrade" = TRUE      # 自动创建目录（如果不存在）
  )
)

步骤2：触发文件下载 #

有两种常用方式实现下载，根据你的场景选择：

方式一：针对已导航的页面触发下载（模拟右键另存为） #

如果已经导航到文件的预览页面，可通过执行JavaScript创建下载链接并模拟点击：

# 导航到目标文件页面
cs$Page$navigate("https://en.wikipedia.org/static/images/mobile/copyright/wikipedia-tagline-en.svg")
# 等待页面加载完成
cs$Page$loadEventFired()

# 执行JS触发下载，可自定义保存的文件名
cs$Runtime$evaluate(expression = '
  const downloadLink = document.createElement("a");
  downloadLink.href = window.location.href;
  downloadLink.download = "wikipedia-tagline-custom.svg";  // 自定义文件名
  document.body.appendChild(downloadLink);
  downloadLink.click();
  document.body.removeChild(downloadLink);
')

方式二：直接发起下载请求（无需导航页面，更高效） #

如果已知资源的直接URL，可跳过页面导航，直接调用API发起下载：

# 直接指定资源URL和保存文件名，无需打开页面
cs$Page$downloadURL(
  url = "https://en.wikipedia.org/static/images/mobile/copyright/wikipedia-tagline-en.svg",
  filename = "wikipedia-tagline-direct.svg"
)

关键注意事项 #

• 确保使用的Chrome/Chromium版本与Chromote兼容（建议使用最新稳定版）
• 下载路径需使用绝对路径，避免因工作目录变化导致的路径错误
• 对于需要登录或权限验证的资源，Chromote会话会自动保留上下文（比如登录后的Cookie），无需额外配置即可下载受保护的文件

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