tests/testthat/test-stagedoutput.R

test_that("multi stage calc works", {
  testfile <- UltraSpoofR::irisUltra
  testfile$stages[["IncudingSepalArea"]] <- function(input) dplyr::mutate(input, Sepal.Area = Sepal.Length * Sepal.Width)
  expect_true("Sepal.Area" %in% colnames(ultraCallStagedOutput(UltraSpoofR::irisUltra$stages)))
})
JDOsborne1/UltraSpoofR documentation built on Dec. 2, 2019, 9:47 p.m.