Bug fix: error for crossprod if the user does not have permission to …

…/tmp

Avoid using /tmp

DESCRIPTION

@@ -2,7 +2,7 @@ Package: PivotalR
 Type: Package
 Title: R front-end to PostgreSQL and Pivotal (Greenplum) database,
         wrapper for MADlib
-Version: 0.1.15.23
+Version: 0.1.15.24
 Date: 2014-03-10
 Author: Predictive Analytics Team at Pivotal Inc. <user@madlib.net>,
         with contributions from Data Scientist Team at Pivotal Inc.

R/generic.bagging.R

@@ -141,14 +141,16 @@ predict.bagging.model <- function (object, newdata, combine = "mean",
     sql.file <- paste(.localVars$pkg.path, "/sql/", funcname,
                       ".sql_in", sep = "")
     use.name <- .unique.string()
-    tmp.file <- paste("/tmp/", use.name, ".sql_in", sep = "")
+    ## tmp.file <- paste("/home/gpadmin/Downloads/tests/", use.name, ".sql_in", sep = "")
     old.name <- paste("pg_temp.", funcname, sep = "")
     new.name <- paste("pg_temp.", use.name, sep = "")
-    system(paste("sed -e \"s/", old.name, "/", new.name, "/g\" ", sql.file,
-                 " > ", tmp.file, sep = ""))
-    cmd <- paste(scan(tmp.file, what = 'a', sep = "\n", quiet = TRUE), collapse = "\n")
+    ## system(paste("sed -e \"s/", old.name, "/", new.name, "/g\" ", sql.file,
+    ##              " > ", tmp.file, sep = ""))
+    ## cmd <- paste(scan(tmp.file, what = 'a', sep = "\n", quiet = TRUE), collapse = "\n")
+    cmd <- paste(scan(sql.file, what = 'a', sep = "\n", quiet = TRUE), collapse = "\n")
+    cmd <- gsub(old.name, new.name, cmd)
     res <- .db.getQuery(cmd, conn.id)
-    system(paste("rm -f ", tmp.file, sep = ""))
+    ## system(paste("rm -f ", tmp.file, sep = ""))
 
     fn.schema <- .db.getQuery(paste("SELECT specific_schema from information_schema.routines where routine_name = '",
                                     use.name, "'", sep = ""), conn.id)