Return vector of table names used.

tables_used(node, ...)

Arguments

node

rquery tree to examine.

...

(not used)

Value

names of tables used.

Examples

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) }
#> mk_td("d1", c( #> "AUC", #> "R2")) %.>% #> natural_join(., #> mk_td("d2", c( #> "AUC", #> "D")), #> jointype = "INNER", by = c('AUC')) #> [1] "d1" "d2"