a <- data.table::data.table(x = c(1, 2) , y = c(20, 30), z = c(300, 400))
optree <- local_td(a) %.>%
select_columns(., c("x", "y")) %.>%
select_rows_nse(., x<2 & y<30)
cat(format(optree))
ex_data_table(optree)
# other ways to execute the pipeline include
data.frame(x = 0, y = 4, z = 400) %.>% optree
Run the code above in your browser using DataLab