## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## -----------------------------------------------------------------------------
# library(DBI)
# con1 <- dbConnect(odbc::odbc(), driver = "PostgreSQL Driver")
# con2 <- dbConnect(odbc::odbc(), driver = "SQLite Driver")

## -----------------------------------------------------------------------------
# library(DBI)
# con <- dbConnect(
#   odbc::odbc(),
#   driver = "PostgreSQL Driver",
#   database = "test_db",
#   username = "postgres",
#   password = Sys.getenv("PASSWORD"),
#   host = "localhost",
#   port = 5432
# )

## -----------------------------------------------------------------------------
# con <- dbConnect(odbc::odbc(), dsn = "test_db")