inst/tinytest/test_colon.R

test_colon <- function() {

  d <- data.frame(t = 1:2)
  r <- d %.>% extend(., u = 4:5)
  expect_equal(data.frame(t = 1:2, u = 4:5), r)

  invisible(NULL)
}

test_colon()
WinVector/rqdatatable documentation built on Aug. 22, 2023, 3:25 p.m.