R/oscn_scrape_all_parties.R

In openjusticeok/ojo: Access and analyze data from the Open Justice Oklahoma database

oscn_scrape_all_parties <- function(courts, casetypes, years, updatedb = TRUE) {
  for (i in courts) {
    for (y in years) {
      for (t in casetypes) {
        final <- oscn_lastcase(i, t, y)
        print(paste0("Scraping ", final, " ", t, " cases from ", i))
        oscn_scrape_parties(courts = i, casetypes = t, years = y, 1:final, updatedb = updatedb)
      }
    }
  }
}