R/db.R


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

library(DBI)

dbConn <- function(dbname){
    switch(dbname,
           ET = dbConnect(RPostgres::Postgres(),
                         dbname="ET",
                         user="et_user",
                         host="debian"),
           serenitasdb = dbConnect(RPostgres::Postgres(),
                                  dbname="serenitasdb",
                                  user = "serenitas_user",
                                  host="debian"),
           dawndb = dbConnect(RPostgres::Postgres(),
                             dbname="dawndb",
                             user = "dawn_user",
                             host="debian"))
}