Changeset: 91fb3f75191c for MonetDB
URL: http://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=91fb3f75191c
Modified Files:
clients/R/MonetDB.R/R/dbi.R
Branch: embedded
Log Message:
added ; to log
diffs (23 lines):
diff --git a/clients/R/MonetDB.R/R/dbi.R b/clients/R/MonetDB.R/R/dbi.R
--- a/clients/R/MonetDB.R/R/dbi.R
+++ b/clients/R/MonetDB.R/R/dbi.R
@@ -261,7 +261,7 @@ setMethod("dbSendQuery", signature(conn=
env <- NULL
if (getOption("monetdb.debug.query", F)) message("QQ: '", statement, "'")
if(!is.null(log_file <- getOption("monetdb.log.query", NULL)))
- cat(statement, file = log_file, sep = "\n", append = TRUE)
+ cat(c(statement, ";\n"), file = log_file, sep="", append = TRUE)
# the actual request
resp <- NA
tryCatch({
@@ -342,8 +342,8 @@ setMethod("dbSendQuery", signature(conn=
env <- NULL
if (getOption("monetdb.debug.query", F)) message("QQ: '", statement, "'")
if(!is.null(log_file <- getOption("monetdb.log.query", NULL)))
- cat(statement, file = log_file, sep = "\n", append = TRUE)
- startt <- Sys.time()
+ cat(c(statement, ";\n"), file = log_file, sep="", append = TRUE)
+ startt <- Sys.time()
resp <- MonetDBLite::monetdb_embedded_query(conn@connenv$conn, statement,
notreally)
takent <- round(as.numeric(Sys.time() - startt), 2)
env <- new.env(parent=emptyenv())
_______________________________________________
checkin-list mailing list
checkin-list@monetdb.org
https://www.monetdb.org/mailman/listinfo/checkin-list
