Why can't I scrape the following table

问题

I'm using the code below in order to scrape a webpage's list.The result that I get is only the table's header.How can I scrape the whole table?

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)

来源：https://stackoverflow.com/questions/39033432/why-cant-i-scrape-the-following-table