Changeset: 3892b4194a6d for MonetDB
URL: http://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=3892b4194a6d
Modified Files:
clients/R/MonetDB.R/R/dbi.R
clients/R/MonetDB.R/R/dplyr.R
Branch: embedded
Log Message:
Fix for Bug 3862
diffs (25 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
@@ -750,6 +750,9 @@ setMethod("dbFetch", signature(res="Mone
if (n == 0) {
stop("Fetch 0 rows? Really?")
}
+ if (res@env$info$type == Q_UPDATE) {
+ return(data.frame())
+ }
if (res@env$delivered < 0) {
res@env$delivered <- 0
}
diff --git a/clients/R/MonetDB.R/R/dplyr.R b/clients/R/MonetDB.R/R/dplyr.R
--- a/clients/R/MonetDB.R/R/dplyr.R
+++ b/clients/R/MonetDB.R/R/dplyr.R
@@ -77,7 +77,7 @@ db_insert_into.MonetDBConnection <- func
db_save_query.MonetDBConnection <- function(con, sql, name, temporary = TRUE,
...) {
tt_sql <- dplyr::build_sql("CREATE TEMPORARY TABLE ", dplyr::ident(name), "
AS ",
- sql, " WITH DATA", con = con)
+ sql, " WITH DATA ON COMMIT PRESERVE ROWS", con = con)
dbGetQuery(con, tt_sql)
name
}
_______________________________________________
checkin-list mailing list
[email protected]
https://www.monetdb.org/mailman/listinfo/checkin-list
