如何在R中进行web抓取时在函数中添加多个类类型

library(rvest)

# 定义一个函数，用于在网页中抓取多个类类型
web_scraping <- function(url, selector) {
  # 发送GET请求并获取网页内容
  webpage <- read_html(url)
  
  # 使用CSS选择器或XPath表达式定位多个元素
  elements <- html_nodes(webpage, selector)
  
  # 遍历每个元素并获取其文本内容
  result <- sapply(elements, function(element) {
    html_text(element)
  })
  
  # 返回抓取结果
  return(result)
}

# 调用函数并抓取多个类类型
url <- "https://example.com"
selector <- c(".class1", ".class2", ".class3")
result <- web_scraping(url, selector)