tests/testthat/test-rmNULL-rmNA.R

In jmw86069/jamba: Jam Base Methods

context("rmNULL")

x <- list(A=1:6, B=NULL, C=letters[11:16]);
x1 <- x[c(1, 3)];

x2 <- x;
x2[[2]] <- NA;

testthat::test_that("rmNULL", {
   testthat::expect_equal(
      rmNULL(x),
      x1)
   testthat::expect_equal(
      rmNULL(x, nullValue=NA),
      x2)
})

context("rmNA")

x <- c(1:10, NA, 20:25, Inf, -Inf);
names(x) <- LETTERS[seq_along(x)]
rmNA(x)
rmNA(x, naValue=-1, infiniteValue=1000)
x5 <- x[c(1:10, 12:17)]
x6 <- c(x[1:10], -1, x[12:17])
names(x6) <- names(x)[c(1:17)]
x7 <- c(x[1:10], -1, x[12:17], 1000, -1000)
names(x7) <- names(x)[c(1:19)]

x8 <- x;
names(x8)[7] <- NA
x9 <- x8[c(-7, -11, -18, -19)];

testthat::test_that("rmNA", {
   testthat::expect_equal(
      rmNA(x),
      x5)
   testthat::expect_equal(
      rmNA(x, naValue=-1),
      x6)
   testthat::expect_equal(
      rmNA(x, naValue=-1, infiniteValue=1000),
      x7)
   testthat::expect_equal(
      rmNA(x8, rmNAnames=TRUE),
      x9)
})


context("rmInfinite")

testthat::test_that("rmInfinite", {
   testthat::expect_equal(
      rmInfinite(x),
      x[1:17])
})