tests/testthat/test-subset.R

In ilabelled: Simple Handling of Labelled Data

test_that("subsetting via '['", {
  # attributes are preserved

  x <- i_labelled(1:3, labels = c("A" = 1, "B" = 2, "C" = 3))
  ref <- i_labelled(2:3, labels = c("A" = 1, "B" = 2, "C" = 3))

  expect_equal(x[c(2,3)], ref)
})


test_that("subsetting via '[['", {
  # attributes are preserved

  x <- i_labelled(1:3, labels = c("A" = 1, "B" = 2, "C" = 3))
  ref <- i_labelled(2, labels = c("A" = 1, "B" = 2, "C" = 3))

  expect_equal(x[[2]], ref)
})