Changeset: 2834b77ef618 for MonetDB
URL: http://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=2834b77ef618
Modified Files:
clients/R/MonetDB.R/R/dbapply.R
Branch: default
Log Message:
R Connector: bugfix
diffs (22 lines):
diff --git a/clients/R/MonetDB.R/R/dbapply.R b/clients/R/MonetDB.R/R/dbapply.R
--- a/clients/R/MonetDB.R/R/dbapply.R
+++ b/clients/R/MonetDB.R/R/dbapply.R
@@ -44,8 +44,7 @@ setMethod("mdbapply", signature(conn="Mo
if (length(vars) > 0) {
if (getOption("monetdb.debug.query",FALSE))
message("Variable(s) ",paste0(vars,collapse=", "))
- #sfilename <- tempfile()
- sfilename <- '/tmp/args.rds'
+ sfilename <- tempfile()
save(list=vars,file=sfilename,envir=environment(fun), compress=T)
dbrcode <- paste0(dbrcode, '# load serialized global variable(s) ',
paste(vars, collapse=", "), '\nload("', sfilename, '")\n')
}
@@ -72,7 +71,7 @@ setMethod("mdbapply", signature(conn="Mo
res <- readRDS(rfilename)
}, finally={
dbRollback(conn)
- # file.remove(stats::na.omit(c(sfilename, rfilename)))
+ file.remove(stats::na.omit(c(sfilename, rfilename)))
})
res
})
_______________________________________________
checkin-list mailing list
checkin-list@monetdb.org
https://www.monetdb.org/mailman/listinfo/checkin-list
