Modified:
/trunk/RPostgreSQL/R/PostgreSQLSupport.R
=======================================
--- /trunk/RPostgreSQL/R/PostgreSQLSupport.R Sat Dec 3 04:50:46 2011
+++ /trunk/RPostgreSQL/R/PostgreSQLSupport.R Sat Dec 3 06:20:39 2011
@@ -81,6 +81,17 @@
port = "", tty = "", options = "") {
if(!isPostgresqlIdCurrent(drv))
stop("expired manager")
+ if(is.null(user))
+ stop("user argument cannot be NULL")
+ if(is.null(password))
+ stop("password argument cannot be NULL")
+ if(is.null(dbname))
+ stop("dbname argument cannot be NULL")
+ if(is.null(port))
+ stop("port argument cannot be NULL")
+ if(is.null(tty))
+ stop("tty argument cannot be NULL")
+
con.params <- as.character(c(user, password, host,
dbname, port,
tty, options))