tests/testthat/test_pipe.R

In Tazovsky/utilities: Pakiet z różnymi funkcjami użytkowymi

context("`%l0>%` test")

test_that("`%l0>%` works with lists", {
  
  l <- list("a", 1, NA, 3, NULL, list() )
  
  expect_identical(l %l0>% 0, list("a", 1, NA, 3, 0, 0) )
})


test_that("`%l0>%` works with data.table", {
  d1 <- data.table(a = list(c(1,2,3), c(4, 5, 6), c(7, 8)), b = list(c("a", "b"), "c", list()), c = list(NULL, "f", NULL))
  
  d2 <- data.table(a = list(c(1,2,3), c(4, 5, 6), c(7, 8)), b = list(c("a", "b"), "c", 7  ), c = list(7, "f", 7))
  
  out <- copy(d1)
  out[, b := b %l0>% 7 ]
  out[, c := c %l0>% 7 ]
  
  expect_identical(out, d2)
})

test_that("`%l0>%` works with vector without zero length elements", {
  
  v1 <- c(1, 2, 3)
  
  expect_identical( v1 %l0>% 0, v1 )
  
})


test_that("`%l0>%` works with vector containing zero length elements", {
  
  expect_identical( integer(0) %l0>% 0, 0 )
  
})