R/connect_oxcovid19.R

In oxcovid19: An R API to the Oxford COVID-19 Database

################################################################################
#
#' Initiate a connection to the OxCOVID19 PostgreSQL database
#'
#' @param dbname Name of database. Default is \code{"covid19"}. Unless
#'   OxCOVID19 Project changes database details, this should be kept as
#'   default.
#' @param host Name of database host. Default is \code{"covid19db.org"}. Unless
#'   OxCOVID19 Project changes database details, this should be kept as
#'   default.
#' @param port Port specifications. Default is \code{5432}. Unless OxCOVID19
#'   Project changes database details, this should be kept as default.
#' @param user User specifications. Default is \code{"covid19"}. Unless
#'   OxCOVID19 Project changes database details, this should be kept as default.
#' @param password Password specifications. Default is \code{"covid19"}. Unless
#'   OxCOVID19 Project changes database details, this should be kept as
#'   default.
#'
#' @return A PostgreSQL connection to OxCOVID19 database
#'
#' @author Ernest Guevarra
#'
#' @examples
#' connect_oxcovid19()
#'
#' @export
#'
#
################################################################################

connect_oxcovid19 <- function(dbname = "covid19",
                              host = "covid19db.org",
                              port = 5432,
                              user = "covid19",
                              password = "covid19") {
  con <- try(expr = DBI::dbConnect(RPostgres::Postgres(),
                                   dbname     = dbname,
                                   host       = host,
                                   port       = port,
                                   user       = user,
                                   password   = password),
             silent = TRUE)

  if(class(con) == "try-error") {
    con <- try(expr = DBI::dbConnect(RPostgres::Postgres(),
                                     dbname     = dbname,
                                     host       = host,
                                     port       = port,
                                     user       = user,
                                     password   = password,
                                     gssencmode = "disable"),
               silent = TRUE)
  }

  ## Return connection
  return(con)
}