如何用R+RCurl从pcloud云存储下载文件？

AI 小北

2026-7-6

解决pcloud分享链接通过R下载目标文件的问题

你使用的URL是pcloud的分享展示页面，而非文件的直接下载链接，因此download.file会下载该页面的HTML源码，而非你需要的文本文件。以下是两种可行的解决方案：

方法1：用RCurl提取真实下载链接

通过获取分享页面的HTML内容，解析出隐藏在页面中的直接下载链接，再执行下载：

library(RCurl)
library(XML)

# 分享页面地址
share_url <- 'https://e.pcloud.link/publink/show?code=XZgjVDZscLM2cMSvMu82070NKGEBSCTU8wX'

# 获取页面HTML内容
page_html <- getURL(share_url)
# 解析HTML文档
doc <- htmlParse(page_html)
# 定位下载按钮对应的链接（适配pcloud页面结构）
real_download_url <- xpathSApply(doc, "//a[contains(@class, 'downloadbtn')]/@href")

# 执行下载
if (length(real_download_url) > 0) {
  download.file(real_download_url[1], destfile = "file1.txt", method = "auto")
} else {
  stop("无法从分享页面提取到真实下载链接")
}

方法2：用httr+rvest简化解析（推荐）

httr和rvest组合处理HTTP请求与HTML解析更便捷：

library(httr)
library(rvest)

share_url <- 'https://e.pcloud.link/publink/show?code=XZgjVDZscLM2cMSvMu82070NKGEBSCTU8wX'

# 请求分享页面
response <- GET(share_url)
# 解析页面并提取下载链接
real_download_url <- response %>%
  read_html() %>%
  html_element("a.downloadbtn") %>%
  html_attr("href")

# 下载目标文件
if (!is.na(real_download_url)) {
  GET(real_download_url, write_disk("file1.txt", overwrite = TRUE))
} else {
  stop("未找到有效的下载链接")
}