R：webscraping一张桌子

Question

我正在尝试网上查看实时汇率网页。 我试过了：

library(XML)
webpage  <- "http://liveindex.org/"

tables <- readHTMLTable(webpage )
n.rows <- unlist(lapply(tables, function(t) dim(t)[1]))

但是我收到了一条错误消息。

感谢您的帮助。