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))
})
ProjectMOSAIC/mosaic documentation built on Feb. 21, 2024, 2:11 a.m.