Make a order_expr node.
order_expr_se(source, expr, env = parent.frame())
source to select from.
expression to order_expr in ascending order.
environment to look for values in.
select columns node.
if (requireNamespace("DBI", quietly = TRUE) && requireNamespace("RSQLite", quietly = TRUE)) {
my_db <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")
d <- rq_copy_to(my_db, 'd',
data.frame(AUC = 0.6, R2 = 0.2))
optree <- order_expr_se(d, "AUC/R2")
cat(format(optree))
sql <- to_sql(optree, my_db)
cat(sql)
print(DBI::dbGetQuery(my_db, sql))
DBI::dbDisconnect(my_db)
}
#> mk_td("d", c(
#> "AUC",
#> "R2")) %.>%
#> order_expr(.,
#> AUC/R2)
#> SELECT * FROM (
#> SELECT
#> `AUC`,
#> `R2`
#> FROM
#> `d`
#> ) tsql_40812148203853546598_0000000000
#> ORDER BY `AUC` / `R2`
#> AUC R2
#> 1 0.6 0.2