## 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){
# Tables[[thisOne[1]]]
# }
# ## End(Not run)
Run the code above in your browser using DataLab