tests/testthat/test-expandfun.R

# context("expandFun()")

testthat::test_that("expandFun works", {
  
  testcase <- list(formula = (z)^2 ~ z, formals = as.pairlist(alist(x = )))
  
  expect_equal(ignore_attr = TRUE, testcase, expandFun(makeFun(x^2~x)(z)~z))
})

Try the mosaic package in your browser

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

mosaic documentation built on Nov. 10, 2023, 1:11 a.m.