connect to postgresql database

gistfile1.r

# Import Libraries
library(RPostgreSQL)

#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

#' Connect to PostgreSQL database
#' 
#' This takes a database name and then connects to it.
#' @param dname The name of the database that houses the dlhs data
#' @return a database connection object to the specified database
#' @author krishna bhogaonker, apr 2014
#' @export
db_conn <- function(dname) {

  drv <- dbDriver("PostgreSQL")
  # make a connection
  tryCatch({
    con <- dbConnect(drv,dbname=dname)},
    error=function(e) {stop(conditionMessage(e), " error connecting to the database, check that the name is correct")
    })
}