R/connect_table.R

In fdrennan/test: What the Package Does (One Line, Title Case)

Defines functions connect_table

Documented in connect_table

#' connect_table
#' @export connect_table
connect_table <- function(dir = "app.db") {
  bd <- Sys.getenv("BASE_DIR")
  pth <- path_join(c(bd, dir))
  conn <- dbConnect(RSQLite::SQLite(), pth)
}