抓取页面上的所有详细信息

Question

我正在尝试从网站上抓取一些数据，但它仅存储第一行。也许我应该运行一个循环或使用Apply函数，但是我不知道如何进行网络抓取。这是我的代码：

library(rvest)
nobel.table <- read_html("https://niir.org/directory/directory/agriculture-agro-based-companies/z,,dc,0,32/index.html")

table_node<-html_node(nobel.table, css = '.d-con')
agro<-html_text(table_node)
agro<-gsub('Mobile:', '\r\n', agro)
agro<-gsub('Tel:', '\r\n', agro)
elem<-unlist(strsplit(agro, '\r\n'))
m <- matrix( elem , ncol = 8 , byrow = TRUE )

Answer 1

您使用的是html_node而不是html_nodes

table_node<-html_nodes(nobel.table, css = '.d-con')