如何在迭代后组合在rvest循环函数中创建的对象？

library(rvest)

# 假设你已经有了一个包含多个网页URL的向量
urls <- c("http://example.com/page1", "http://example.com/page2", "http://example.com/page3")

# 创建一个空列表来存储抓取的数据
data_list <- list()

# 迭代URL列表并抓取数据
for (url in urls) {
  page <- read_html(url)
  title <- page %>% html_nodes("title") %>% html_text()
  data_list <- append(data_list, list(title))
}

# 组合数据列表为一个数据框
combined_data <- do.call(rbind, data_list)

# 查看组合后的数据
print(combined_data)

for (url in urls) {
  tryCatch({
    page <- read_html(url)
    title <- page %>% html_nodes("title") %>% html_text()
    data_list <- append(data_list, list(title))
  }, error = function(e) {
    message("Error accessing URL: ", url)
  })
}