如何使用RVest将NA分配给不存在的html_node

Question

我有数百个要使用rvest解析的HTML文件。但是，某些HTML文件可能会丢失某些节点，当节点丢失时，如何编写if语句来分配NA？

现在，我收到此错误消息

  

'UseMethod（“ xml_find_first”）中的错误：没有适用于'xml_find_first'的适用方法应用于“ xml_missing”类的对象

我写了以下函数，但是不起作用。

extractor<-function(file,htmlnode){

if(is.na(html_node(file,htmlnode))){
   a<-c('non-exist')

}else{

   a<-read_html(file)%>%
    html_node(htmlnode)%>%
    html_text()%>%
    clean_up()
   }

 return(a)
 }