如何在泛型函数中包装html_nodes中的css和xpath参数

在泛型函数中包装html_nodes的CSS和XPath参数，通常是为了提高代码的复用性和灵活性。以下是一个示例，展示了如何在R语言中使用rvest包来实现这一功能。

基础概念

泛型函数：一个可以接受不同类型参数的函数。
CSS选择器：用于在HTML文档中选择元素的样式表语言。
XPath：一种在XML文档中查找信息的语言，也可以用于HTML。

示例代码

library(rvest)

# 泛型函数，接受HTML节点、CSS选择器或XPath表达式
extract_nodes <- function(html_nodes, selector_type, selector) {
  if (selector_type == "css") {
    return(html_nodes %>% html_nodes(css = selector))
  } else if (selector_type == "xpath") {
    return(html_nodes %>% html_nodes(xpath = selector))
  } else {
    stop("Unsupported selector type")
  }
}

# 示例HTML内容
html_content <- '<html><body><div class="example">Example Text</div></body></html>'

# 解析HTML内容
webpage <- read_html(html_content)

# 使用CSS选择器提取节点
nodes_css <- extract_nodes(webpage, "css", ".example")
print(nodes_css)

# 使用XPath表达式提取节点
nodes_xpath <- extract_nodes(webpage, "xpath", "//div[@class='example']")
print(nodes_xpath)