返回空值的Rvest

# 安装并加载 rvest 包
install.packages("rvest")
library(rvest)

# 目标网页 URL
url <- "http://example.com"

# 尝试抓取网页内容
webpage <- read_html(url)

# 假设我们要抓取的元素有一个特定的 CSS 类
elements <- webpage %>% html_nodes(".target-class")

# 检查是否为空
if (length(elements) == 0) {
  cat("没有找到匹配的元素。\n")
} else {
  # 提取文本内容
  data <- elements %>% html_text()
  print(data)
}

# 如果网页内容是动态加载的，可以尝试使用 RSelenium
# 安装并加载 RSelenium
install.packages("RSelenium")
library(RSelenium)

# 启动浏览器
rD <- rsDriver(browser = "firefox")
remDr <- rD[["client"]]

# 打开网页
remDr$navigate(url)

# 等待页面加载完成
Sys.sleep(5)

# 获取页面源代码
page_source <- remDr$getPageSource()[[1]]

# 使用 rvest 解析页面
webpage <- read_html(page_source)
elements <- webpage %>% html_nodes(".target-class")

# 提取数据
if (length(elements) == 0) {
  cat("仍然没有找到匹配的元素。\n")
} else {
  data <- elements %>% html_text()
  print(data)
}

# 关闭浏览器
remDr$close()
rD$server$stop()