tests/testthat/test-remove_labels.R

In sjlabelled: Labelled Data Utility Functions

library(sjlabelled)

test_that("remove_labels", {
  z <- factor(LETTERS[3:1], ordered = TRUE)
  z <- sjlabelled::set_labels(z, labels = c("yes", "maybe", "no"))
  x <- sjlabelled::remove_labels(z, labels = 2)

  expect_equal(attributes(x)$labels, c(yes = "A", no = "C"))
})