test_that("basic operation as expected", {
dt <- lazy_dt(data.frame(g = c(1, 1, 2), x = 1:3), "DT")
expect_equal(
dt %>% do(y = ncol(.)) %>% show_query(),
expr(DT[, .(y = .(ncol(.SD)))])
)
expect_equal(
dt %>% group_by(g) %>% do(y = ncol(.)) %>% show_query(),
expr(DT[, .(y = .(ncol(.SD))), keyby = .(g)])
)
})
Generated by dwww version 1.15 on Tue Jul 2 08:03:54 CEST 2024.