# Basic example
x <- data.frame(foo = rnorm(3), bar = c(TRUE, FALSE, TRUE))
y <- data.frame(foo = rnorm(2), col = c("blue", "red"))
rbind.pages(list(x, y))
## Not run:
# baseurl <- "http://projects.propublica.org/nonprofits/api/v1/search.json"
# pages <- list()
# for(i in 0:20){
# mydata <- fromJSON(paste0(baseurl, "?order=revenue&sort_order=desc&page=", i))
# message("Retrieving page ", i)
# pages[[i+1]] <- mydata$filings
# }
# filings <- rbind.pages(pages)
# nrow(filings)
# colnames(filings)
# ## End(Not run)
Run the code above in your browser using DataLab