## Not run:
# URL <- "http://en.wikipedia.org/wiki/Poverty_in_the_United_States"
# Tables <- getTables(URL)
# thisOne <- which(sapply(Tables, "[", 1, 1) == "Persons in Family Unit")
# if(length(thisOne) > 0){
# temp <- Tables[[thisOne[1]]]
# processTable(temp[-c(1),], 1:4)
# }
# # warning may be produced for one entry
# # "each additional person adds"
# ## End(Not run)
Run the code above in your browser using DataLab