R: webscraping a table -

i trying webscrape live exchange rates webpage. tried:

library(xml) webpage  <- "http://liveindex.org/"  tables <- readhtmltable(webpage ) n.rows <- unlist(lapply(tables, function(t) dim(t)[1])) 

but error message.

thank help.