Changeset: 913e653385bb for MonetDB
URL: http://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=913e653385bb
Modified Files:
clients/R/MonetDB.R/R/dbi.R
clients/R/Tests/dbapply.R
clients/R/Tests/dbapply.stable.out
Branch: default
Log Message:
R Connector: Stabilized test output
diffs (41 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
@@ -281,7 +281,7 @@ setMethod("dbSendQuery", signature(conn=
}
}
- new("MonetDBResult", env=env)
+ invisible(new("MonetDBResult", env=env))
})
diff --git a/clients/R/Tests/dbapply.R b/clients/R/Tests/dbapply.R
--- a/clients/R/Tests/dbapply.R
+++ b/clients/R/Tests/dbapply.R
@@ -23,9 +23,8 @@ stopifnot(dbIsValid(con))
# make sure embedded R is working in general
dbBegin(con)
-dbSendQuery(con, "CREATE FUNCTION fuuu() RETURNS TABLE(i INTEGER) LANGUAGE R
{42L}")
+invisible(dbSendQuery(con, "CREATE FUNCTION fuuu() RETURNS TABLE(i INTEGER)
LANGUAGE R {42L}"))
res <- dbGetQuery(con, "SELECT * FROM fuuu();")
-print(res$i[[1]])
stopifnot(identical(42L, res$i[[1]]))
dbRollback(con)
diff --git a/clients/R/Tests/dbapply.stable.out
b/clients/R/Tests/dbapply.stable.out
--- a/clients/R/Tests/dbapply.stable.out
+++ b/clients/R/Tests/dbapply.stable.out
@@ -30,11 +30,6 @@ Ready.
# 11:43:14 >
[1] TRUE
-An object of class "MonetDBResult"
-Slot "env":
-<environment: 0x7fa0e4a984e8>
-
-[1] 42
[1] TRUE
[1] TRUE
[1] TRUE
_______________________________________________
checkin-list mailing list
[email protected]
https://www.monetdb.org/mailman/listinfo/checkin-list
