Changeset: d28e75cd77b0 for MonetDB
URL: http://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=d28e75cd77b0
Modified Files:
clients/R/MonetDB.R/R/dbi.R
clients/R/Tests/dbi.stable.out
Branch: embedded
Log Message:
R Connector: Table order in dbListTables() explicit
diffs (26 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
@@ -174,7 +174,7 @@ setMethod("dbDisconnect", "MonetDBEmbedd
setMethod("dbListTables", "MonetDBConnection", def=function(conn, ...,
sys_tables=F, schema_names=F) {
q <- "select schemas.name as sn, tables.name as tn from sys.tables join
sys.schemas on tables.schema_id=schemas.id"
- if (!sys_tables) q <- paste0(q, " where tables.system=false")
+ if (!sys_tables) q <- paste0(q, " where tables.system=false order by sn, tn")
df <- dbGetQuery(conn, q)
df$tn <- quoteIfNeeded(conn, df$tn, warn=F)
res <- df$tn
diff --git a/clients/R/Tests/dbi.stable.out b/clients/R/Tests/dbi.stable.out
--- a/clients/R/Tests/dbi.stable.out
+++ b/clients/R/Tests/dbi.stable.out
@@ -52,9 +52,7 @@ Ready.
[1] TRUE
[1] TRUE
[1] TRUE
-[1] 150
-[1] 150
-[1] "monetdbtest" "\"Need to quote this table name\""
+[1] "\"Need to quote this table name\"" "monetdbtest"
[1] TRUE
[1] TRUE
[1] TRUE
_______________________________________________
checkin-list mailing list
[email protected]
https://www.monetdb.org/mailman/listinfo/checkin-list
