inst/tinytest/test_pow.R

test_pow <- function() {
  d <- data.frame(x = 2)
  d2 <- extend(d, xsq = x^2)
  expect_equal(data.frame(x = 2, xsq = 4), data.frame(d2))

  invisible(NULL)
}

test_pow()

Try the rqdatatable package in your browser

Any scripts or data that you put into this service are public.

rqdatatable documentation built on Aug. 21, 2023, 9:10 a.m.