# NOT RUN {
##this wont be run as the user need to manually configure the connection before using it
# }
# NOT RUN {
object <- new("ConnectionDB")
object@dbname <- c("bd_contmig_nat","test")
object@host <- "localhost"
object@port <- "5432"
object@user <- "myuser"
object@password <- "mypassword"
object@silent=FALSE
object <- connect(object)
pool::dbGetInfo(object@connection)
pool::poolClose(object@connection)
# }
Run the code above in your browser using DataLab