Little mod in RJDBC to allow OrientDB connections

class.patch

--- RJDBC0.2-6/R/class.R	2017-02-07 21:38:59.000000000 +0100
+++ RJDBC0.2-6mod/R/class.R	2017-03-22 02:39:42.000000000 +0100
@@ -37,18 +37,12 @@
 setMethod("dbUnloadDriver", "JDBCDriver", def=function(drv, ...) FALSE)
 
 setMethod("dbConnect", "JDBCDriver", def=function(drv, url, user='', password='', ...) {
-  jc <- .jcall("java/sql/DriverManager","Ljava/sql/Connection;","getConnection", as.character(url)[1], as.character(user)[1], as.character(password)[1], check=FALSE)
-  if (is.jnull(jc) && !is.jnull(drv@jdrv)) {
-    # ok one reason for this to fail is its interaction with rJava's
-    # class loader. In that case we try to load the driver directly.
-    oex <- .jgetEx(TRUE)
-    p <- .jnew("java/util/Properties")
-    if (length(user)==1 && nchar(user)) .jcall(p,"Ljava/lang/Object;","setProperty","user",user)
-    if (length(password)==1 && nchar(password)) .jcall(p,"Ljava/lang/Object;","setProperty","password",password)
-    l <- list(...)
-    if (length(names(l))) for (n in names(l)) .jcall(p, "Ljava/lang/Object;", "setProperty", n, as.character(l[[n]]))
-    jc <- .jcall(drv@jdrv, "Ljava/sql/Connection;", "connect", as.character(url)[1], p)
-  }
+  p <- .jnew("java/util/Properties")
+  if (length(user)==1 && nchar(user)) .jcall(p,"Ljava/lang/Object;","setProperty","user",user)
+  if (length(password)==1 && nchar(password)) .jcall(p,"Ljava/lang/Object;","setProperty","password",password)
+  l <- list(...)
+  if (length(names(l))) for (n in names(l)) .jcall(p, "Ljava/lang/Object;", "setProperty", n, as.character(l[[n]]))
+  jc <- .jcall("java/sql/DriverManager","Ljava/sql/Connection;","getConnection", as.character(url)[1], p)
   .verify.JDBC.result(jc, "Unable to connect JDBC to ",url)
   new("JDBCConnection", jc=jc, [email protected])},
           valueClass="JDBCConnection")

Example:

require(rJava)
require(RJDBC)

options(java.parameters = "-Xmx1G")

drv <- JDBC("com.orientechnologies.orient.jdbc.OrientJdbcDriver", "orientdb-jdbc-2.2.17-all.jar")
con <- dbConnect(drv, "jdbc:orient:remote:localhost/test", "user", "pass")

packages <- dbGetQuery(con, 'select @rid.asString() as pack_rid, title as name, out("VersionOf").@rid[0].asString() as gem_rid, gem, version, file_size, file_count, new_proc_date.format("yyyy-MM-dd") as date from package limit 10')

# Note that all  traversed items are aliased, otherwise you will get NAs.
# Note that all RID objects and are formatted as Strings, otherwise you will get the whole object in string format.
# Note that all dates must be formatted properly in the query to avoid timezone issues. 
#     OrientDB JDBC does not respect neither the client's default timezone, nor the database's default timezone.