R/ojo_quick_refresh.R

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

ojo_quick_refresh <- function(site, casetype, year, reverse = FALSE) {
  if (str_to_upper(site) == "OSCN") {
    
    mclapply(oscn_counties, function(x) oscn_scrape_all(x, casetype, year, reverse = reverse),
             mc.cores = 8)
    
  } else if (str_to_upper(site) == "ODCR") {
    
    mclapply(odcr_counties, function(x) odcr_scrape_all(x, casetype, year, reverse = reverse),
             mc.cores = 8)
    
  }
}