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

## ---- eval = FALSE------------------------------------------------------------
#  db <- rocker::newDB() # New database handling object
#  #> dctr | New object
#  db$setupDriver( # Setup PostgreSQL database with stored password (password and user are hidden - default behavior)
#    RPostgres::Postgres(),
#    host = "127.0.0.1", port = "5432", dbname = "mydb",
#    user = "postgres", password = "password",
#    protect = c("password", "user")
#  )
#  #> Dctr | Driver load RPostgres

## ---- eval = FALSE------------------------------------------------------------
#  db$connect() # Open connection 1; Password is stored in the class and does not need to be provided.
#  #> DCtr | Database connected
#  output1 <- db$getQuery("SELECT * FROM mtcars;") # Get query 1
#  #> DCtR | Send query 21 characters
#  #> DCtR | Fetch rows all -> Received 32 rows, 11 columns, 4824 bytes
#  #> DCtR | Rows fetched 32
#  #> DCtR | Has completed yes
#  #> DCtr | Clear result
#  db$disconnect() # Close connection 1
#  #> Dctr | Database disconnected

## ---- eval = FALSE------------------------------------------------------------
#  db$connect() # Open connection 2; Password is stored in the class and does not need to be provided.
#  #> DCtr | Database connected
#  output2 <- db$getQuery("SELECT * FROM mtcars;") # Get query 2
#  #> DCtR | Send query 21 characters
#  #> DCtR | Fetch rows all -> Received 32 rows, 11 columns, 4824 bytes
#  #> DCtR | Rows fetched 32
#  #> DCtR | Has completed yes
#  #> DCtr | Clear result
#  db$disconnect() # Close connection 2
#  #> Dctr | Database disconnected

## ---- eval = FALSE------------------------------------------------------------
#  db$unloadDriver() # Reset database handling object
#  #> dctr | Driver unload RPostgres

## ---- eval = FALSE------------------------------------------------------------
#  db <- rocker::newDB() # New database handling object
#  #> dctr | New object
#  db$setupDriver( # Setup PostgreSQL database without stored password
#    RPostgres::Postgres(),
#    host = "127.0.0.1", port = "5432", dbname = "mydb",
#    user = "postgres"
#  )
#  #> Dctr | Driver load RPostgres

## ---- eval = FALSE------------------------------------------------------------
#  db$connect(password = "password") # Open connection 1; Password needs to be provided.
#  #> DCtr | Database connected
#  output1 <- db$getQuery("SELECT * FROM mtcars;") # Get query 1
#  #> DCtR | Send query 21 characters
#  #> DCtR | Fetch rows all -> Received 32 rows, 11 columns, 4824 bytes
#  #> DCtR | Rows fetched 32
#  #> DCtR | Has completed yes
#  #> DCtr | Clear result
#  db$disconnect() # Close connection 1
#  #> Dctr | Database disconnected

## ---- eval = FALSE------------------------------------------------------------
#  db$connect(password = "password") # Open connection 2; Password needs to be provided.
#  #> DCtr | Database connected
#  output2 <- db$getQuery("SELECT * FROM mtcars;") # Get query 2
#  #> DCtR | Send query 21 characters
#  #> DCtR | Fetch rows all -> Received 32 rows, 11 columns, 4824 bytes
#  #> DCtR | Rows fetched 32
#  #> DCtR | Has completed yes
#  #> DCtr | Clear result
#  db$disconnect() # Close connection 2
#  #> Dctr | Database disconnected

## ---- eval = FALSE------------------------------------------------------------
#  db$unloadDriver() # Reset database handling object
#  #> dctr | Driver unload RPostgres