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"