tests/testthat/test-fill_missing.R

test_that("fill_missing", {
  scdf <- fill_missing(Grosche2011)
  values <- round(sum(unlist(lapply(scdf, function(x) x$values))),4)
  expect_equal(values, 1831.035)
})
jazznbass/scan documentation built on July 12, 2024, 6:02 p.m.