如何在R中循环多个网站并使用RSelenium和rvest提取相同的信息？

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

# 启动Selenium服务器
selServ <- rsDriver(browser = "firefox")
remDr <- selServ$client

websites <- c("https://www.example1.com", "https://www.example2.com", "https://www.example3.com")

for (website in websites) {
  # 打开网站
  remDr$navigate(website)
  
  # 使用rvest提取信息
  webpage <- read_html(remDr$getPageSource()[[1]])
  # 提取标题
  title <- webpage %>% html_nodes("title") %>% html_text()
  # 提取正文内容
  content <- webpage %>% html_nodes("p") %>% html_text()
  
  # 输出结果
  cat("网站:", website, "\n")
  cat("标题:", title, "\n")
  cat("正文内容:", content, "\n\n")
}