Changeset: fbeae61267cf for MonetDB
URL: http://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=fbeae61267cf
Modified Files:
clients/R/MonetDB.R/R/monetdb.R
Branch: Oct2014
Log Message:
R Connector: removed spurious output
Unterschiede (20 Zeilen):
diff --git a/clients/R/MonetDB.R/R/monetdb.R b/clients/R/MonetDB.R/R/monetdb.R
--- a/clients/R/MonetDB.R/R/monetdb.R
+++ b/clients/R/MonetDB.R/R/monetdb.R
@@ -908,14 +908,14 @@ monet.read.csv <- monetdb.read.csv <- fu
if(header || !missing(nrows)){
if (length(nrows)==1) nrows <- rep(nrows, length(files))
for(i in seq_along(files)) {
- cat(files[i], thefile <- normalizePath(files[i]), "\n")
+ thefile <- normalizePath(files[i])
dbSendUpdate(conn, paste("COPY", format(nrows[i], scientific=FALSE),
"OFFSET 2 RECORDS INTO",
tablename, "FROM", paste("'", thefile, "'",
sep=""), delimspec, "NULL as", paste("'",
na.strings[1], "'", sep=""), if(locked)
"LOCKED"))
}
} else {
for(i in seq_along(files)) {
- cat(files[i], thefile <- normalizePath(files[i]), "\n")
+ thefile <- normalizePath(files[i])
dbSendUpdate(conn, paste0("COPY INTO ", tablename, " FROM ", paste("'",
thefile, "'", sep=""),
delimspec, "NULL as ", paste("'",
na.strings[1], "'", sep=""), if(locked) " LOCKED "))
}
_______________________________________________
checkin-list mailing list
[email protected]
https://www.monetdb.org/mailman/listinfo/checkin-list
