Take 538 data and push to database

538-to-db.R

# install.packages('fivethirtyeightdata', repos = 'https://fivethirtyeightdata.github.io/drat/', type = 'source')
# install.packages("fivethirtyeight")

# connect
con <- DBI::dbConnect(odbc::odbc(), "fivethirtyeight")

# get dataset names from each package
x <- tibble::as_tibble(data(package = "fivethirtyeight")$results)
y <- tibble::as_tibble(data(package = "fivethirtyeightdata")$results)

# upload first set
lapply(x$Item, function(i) {
  tryCatch(expr = {
    message("* Writing <", i, ">")
    dat <- eval(parse(text = paste0("fivethirtyeight::", i)))
    dat <- as.data.frame(dplyr::mutate_if(dat, is.factor, as.character))
    DBI::dbWriteTable(con, i, dat, overwrite = TRUE)
  }, error = function(e) {
    message("! Failed to write, removing <", i, ">")
    tryCatch(expr = {
      DBI::dbRemoveTable(con, i)
    }, error = function(e) {
      e
    })
  })
})

# upload second set
lapply(y$Item, function(i) {
  tryCatch(expr = {
    message("* Writing <", i, ">")
    dat <- eval(parse(text = paste0("fivethirtyeightdata::", i)))
    dat <- as.data.frame(dplyr::mutate_if(dat, is.factor, as.character))
    DBI::dbWriteTable(con, i, dat, overwrite = TRUE)
  }, error = function(e) {
    message("! Failed to write, removing <", i, ">")
    tryCatch(expr = {
      DBI::dbRemoveTable(con, i)
    }, error = function(e) {
      e
    })
  })
})

# disconnect
DBI::dbDisconnect(con)