tests/testthat/test-remove_labels.R
In strengejacke/sjlabelled: Labelled Data Utility Functions
test_that("remove_labels", {
skip_if_not_installed("haven")
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"))
})
strengejacke/sjlabelled documentation built on May 17, 2024, 9:21 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
test_that("remove_labels", {
skip_if_not_installed("haven")
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"))
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.