tables_used | R Documentation |
Return vector of table names used.
tables_used(node, ...)
node |
rquery tree to examine. |
... |
(not used) |
names of tables used.
if (requireNamespace("DBI", quietly = TRUE) && requireNamespace("RSQLite", quietly = TRUE)) {
my_db <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")
d1 <- rq_copy_to(my_db, 'd1',
data.frame(AUC = 0.6, R2 = 0.2))
d2 <- rq_copy_to(my_db, 'd2',
data.frame(AUC = 0.6, D = 0.3))
optree <- natural_join(d1, d2, by = "AUC")
cat(format(optree))
print(tables_used(optree))
DBI::dbDisconnect(my_db)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.