我正在使用下面的代码来抓取网页的列表。我得到的结果只是表格的标题。我怎样才能刮掉整个表格？
library(rvest)
theurl <- "http://www.forbes.com/midas/list/"
file<-read_html(theurl)
tables<-html_nodes(file, "table")
table1 <- html_table(tables[2], fill = F)
table1
c<-as.data.frame(lapply(table1, stack))
summary(c$values)
head(c$values)