R/oscn_scrape_all_epay.R

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

oscn_scrape_all_epay <- function(courts, casetypes, years, updatedb = TRUE, reverse = FALSE) {
  for (i in courts) {
    for (y in years) {
      for (t in casetypes) {

        final <- oscn_lastcase(i, t, y)
        print(paste0("Scraping ", final, " ", t, " cases filed in ", i, " court in ", y, "."))

        if (reverse == FALSE) {
          oscn_scrape_epay(courts = i, casetypes = t, years = y,
                      1:final, updatedb = updatedb, update_freq = 20)
        } else {
          oscn_scrape_epay(courts = i, casetypes = t, years = y,
                      final:1, updatedb = updatedb, update_freq = 20)
        }
      }
    }
  }
}