如何在R中抓取多个页面

install.packages("rvest")
library(rvest)

url <- "https://example.com/page1"
page <- read_html(url)

nodes <- html_nodes(page, "CSS选择器")

text <- html_text(nodes)

library(rvest)

# 定义要抓取的页面URL列表
urls <- c("https://example.com/page1", "https://example.com/page2", "https://example.com/page3")

# 循环遍历每个页面
for (url in urls) {
  # 读取页面内容
  page <- read_html(url)
  
  # 抓取标题元素
  title_node <- html_nodes(page, "h1")
  
  # 提取标题文本
  title <- html_text(title_node)
  
  # 打印标题
  cat("页面", url, "的标题是：", title, "\n")
}