R/oscn_functions.R

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

library(rvest)
library(tidyverse)
library(lubridate)
library(RMySQL)
library(dbx)
library(parallel)
library(glue)

#### Other functions ####
dlm_updatedb <- function() {
  if (exists("dlm_inmates") & exists("dlm_offenses")) {

    dbWriteTable(ojo_db, "dlm_inmates", dlm_inmates,
                 append = TRUE, row.names = FALSE)

    dbWriteTable(ojo_db, "dlm_offenses", dlm_offenses,
                 field.types = c(pop_date = "DATE",
                                 refno = "TEXT",
                                 defname = "TEXT",
                                 offense = "TEXT",
                                 casenum = "TEXT",
                                 next_step = "TEXT",
                                 next_date = "DATE",
                                 bond_type = "TEXT",
                                 bond_amt = "DOUBLE"),
                 append = TRUE, row.names = FALSE) }

  else {print('dlm_inmate_update requires data frames called `dlm_inmates` and `dlm_offenses`')}
}

ojo_pal <- c("#F8D64E", "black", "#0D0887FF", "#6A00A8FF",
             "#B12A90FF", "#E16462FF", "#FCA636FF", "#F0F921FF")