html_session("http://www.yuemei.com/hospital/6300/tao.htmll")
weburl    <- read_html("http://www.yuemei.com/hospital/6300/tao.htmll")                  # 载入网页
title     <- read_html(weburl) %>% html_node("h1") %>% html_text()          # 采集机构名称


Error in UseMethod("read_xml") :
  no applicable method for 'read_xml' applied to an object of class "c('xml_document', 'xml_node')"


错误提示：不适用于类“c”(“xml_document”，“xml_node”)的对象，大家帮我测试下，哪里错了。