R/ojo_dejunk.R

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

ojo_dejunk <- function() {
  connect_ojo(username = "admin")

  dbSendQuery(ojo_db, "
              DELETE FROM oscn_lastupdate
              WHERE oscn_lastupdate_id NOT IN (SELECT oscn_ci_id FROM oscn_caseinfo);")

  dbSendQuery(ojo_db, "
  DELETE FROM odcr_lastupdate
  WHERE odcr_lastupdate_id NOT IN (SELECT odcr_ci_id FROM odcr_caseinfo);")

  disconnect_ojo()
}