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")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.