tests/testthat/test-prop_row.R

In njtierney/narnia: Data Structures, Summaries, and Visualisations for Missing Data

# is there a more general way to write these kinds of tests?
test_that("rowwise errors for non data frames",{
  expect_snapshot(
    error = TRUE,
    n_miss_row(numeric(0))
    )
  expect_snapshot(
    error = TRUE,
    n_miss_row(NULL)
    )
  expect_snapshot(
    error = TRUE,
    n_complete_row(numeric(0))
    )
  expect_snapshot(
    error = TRUE,
    n_complete_row(NULL)
    )
  expect_snapshot(
    error = TRUE,
    prop_miss_row(numeric(0))
    )
  expect_snapshot(
    error = TRUE,
    prop_miss_row(NULL)
    )
  expect_snapshot(
    error = TRUE,
    prop_complete_row(numeric(0))
    )
  expect_snapshot(
    error = TRUE,
    prop_complete_row(NULL)
    )

})

d10 <- diag_na(10)
ds <- d10
ds[upper.tri(ds)] <- NA

test_that("n/prop_miss_row correctly counts the missings",{
  expect_equal(n_miss_row(d10), rep(1,10))
  expect_equal(n_miss_row(ds), 10:1)
  expect_equal(prop_miss_row(d10), rep(0.1,10))
  expect_equal(prop_miss_row(ds), rev(seq(from = 0.1, to = 1, by = 0.1)))

})

test_that("n/prop_complete_row correctly counts the missings",{
  expect_equal(n_complete_row(d10), rep(9,10))
  expect_equal(n_complete_row(ds), 0:9)
  expect_equal(prop_complete_row(d10), rep(0.9,10))
  expect_equal(prop_complete_row(ds), seq(from = 0.0, to = 0.9, by = 0.1))

})