R/ojo_scrape.R

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

ojo_scrape <- function(courts, casetypes, years, case_seqs, updatedb = TRUE, update_freq = 100) {
  for (court_tmp in courts) {
    if (court_tmp %in% oscn_counties) {
      print("Using oscn_scrape")
      oscn_scrape(court_tmp, casetypes, years, case_seqs, updatedb = updatedb, update_freq = update_freq)
    } else {
      print("Using odcr_scrape")
      odcr_scrape(court_tmp, casetypes, years, case_seqs, updatedb = updatedb, update_freq = update_freq)
    }
  }
}