Changeset: 9a773fda0742 for MonetDB
URL: http://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=9a773fda0742
Modified Files:
clients/R/MonetDB.R/R/dbi.R
clients/R/Tests/dbi.R
Branch: embedded
Log Message:
Un-breaking dbWriteTable
diffs (28 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
@@ -454,7 +454,7 @@ quoteIfNeeded <- function(conn, x, warn=
x
}
-setMethod("dbWriteTable", signature(conn="MonetDBConnection", name =
"character", value="data.frame"), def=function(conn, name, value,
overwrite=FALSE,
+setMethod("dbWriteTable", signature(conn="MonetDBConnection", name =
"character", value="ANY"), def=function(conn, name, value, overwrite=FALSE,
append=FALSE, csvdump=FALSE, transaction=TRUE, temporary=FALSE, ...) {
if (is.character(value)) {
message("Treating character vector parameter as file name(s) for
monetdb.read.csv()")
diff --git a/clients/R/Tests/dbi.R b/clients/R/Tests/dbi.R
--- a/clients/R/Tests/dbi.R
+++ b/clients/R/Tests/dbi.R
@@ -213,6 +213,12 @@ dbRollback(conn)
# empty result set
stopifnot(!is.null(dbGetQuery(conn, "SELECT * FROM tables WHERE 1=0")))
+#non-standard dbwritetable use
+dbBegin(conn)
+dbWriteTable(conn, "vectable", 1:1000, transaction=F)
+stopifnot(dbExistsTable(conn, "vectable"))
+dbRollback(conn)
+
stopifnot(dbIsValid(conn))
#thrice to catch null pointer errors
stopifnot(identical(dbDisconnect(con),TRUE))
_______________________________________________
checkin-list mailing list
checkin-list@monetdb.org
https://www.monetdb.org/mailman/listinfo/checkin-list
