我正在抓取页面tata safari discription以获取评论和用户评论。我正在使用选择器小工具来获取css标签。我到目前为止所做的事情是：
teambhp <- read_html("http://www.team-bhp.com/forum/official-new-car-reviews/171841-tata-safari-storme-varicor-400-official-review.html")
titles <- teambhp %>% html_node("hr+ div , i ,strong u , #posts ") %>% html_text()
但它只保存一个title inn titles变量。并发出以下警告。
Warning message:
In node_find_one(x$node, x$doc, xpath = xpath, nsMap = ns) :
23 matches for .//hr/following-sibling::*[name() = 'div' and (position() = 1)] | .//i | .//strong/descendant-or-self::*/u | .//*[@id = 'posts']:
using first
我希望所有23个都保存在列表中。我怎么能这样做？
答案 0 :(得分：3)
请参阅help("html_node)：
html_node vs html_nodes
html_node就像[[它总是提取一个元素。当给定节点列表时，html_node将始终返回相同长度的列表，html_nodes的长度可能更长或更短。
您需要将其替换为html_nodes()（请注意s）：
titles <- teambhp %>% html_nodes("hr+ div , i ,strong u , #posts ") %>% html_text()