R/database-connections.R

In kuriwaki/rcces: Tools to Melt, Combine, Clean, and Standardize CCES Questions

#' Set up Database connections
#' @import DBI
#' @import RSQLite
#' @import dbplyr
#' @import dplyr
setup_db <- function() {
  con <- dbConnect(SQLite(), "~/Dropbox/CCES_representation/data/database/db.sqlite3")
  initExtension(con)
  src <- src_dbi(con)

  respn <- tbl(src, "responses")
  agrmt <- tbl(src, "agreement")
  person <- tbl(src, "person")
  legis <- tbl(src, "legis")
  votes <- tbl(src, "votes")
  qID <- tbl(src, "qID")
  qID_df <- collect(qID)
  distr <- tbl(src, "distr")
  splts <- tbl(src, "splits")
}