R/Rdbq.rqda.R

In EccRiley/Riley: Riley: A working R-library of functions, data, color palettes (etc.) for everyday, and not-so-everyday, R tasks.

Rdbq.rqda <- function(dbpath, tables = c("freecode", "treecode", "codecat", "cases", "caselinkage", "source", "coding")) {
	require(RSQLite); require(DBI)
	db <- dbConnect(SQLite(), dbpath)
	tbls <- list(mode = "list", length = length(tables))
	for (i in 1:length(tables)) {
		dbGetQuery(db, paste0("SELECT * FROM ", tables[i], ";")) -> tbls[[i]]
	}
	dbDisconnect(db)
	names(tbls) <- tables
	return(tbls)
}