tests/testthat/test-rc_char.R

In graggsd/sgcodebook: Recodes Categorical Values in a Dataset Using a Codebook

context("rc_char")


# Basic functionality ---------------------------------------------------------
test_that("for character vectors", {
    expect_equal(rc_char(x = letters, from = letters, to = LETTERS),
                 LETTERS)
    expect_equal(rc_char(x = letters[1:10], from = letters, to = LETTERS),
                 LETTERS[1:10])
})

test_that("reassigns all values in 'from' to a single value in 'to' when 'to' contains a single value", {
    expect_equal(rc_char(x = letters, from = letters, to = LETTERS[1]),
                 rep(LETTERS[1], length(letters)))
})

test_that("can reassign multiple values in 'from' to a single value of 'to'", {
    expect_equal(rc_char(x = c("a", "b"), from = c("a", "b"), to = c("1", "1")),
                 c("1", "1"))
})

test_that("works with 'x' of length 1", {
    expect_equal(rc_char(x = letters[1], from = letters, to = LETTERS),
                 LETTERS[1])
})

test_that("works with 'to' and 'from' of length 1", {
    expect_equal(rc_char(x = c("a", "x"), from = "a", to = "b", warn = FALSE),
                 c("b", "x"))
})

test_that("works with coercion", {
    expect_equal(rc_char(x = rep(1:10),
                        from = as.character(1:10),
                        to = letters[1:10]),
                 letters[1:10])
})

# NA value handling ------------------------------------------------------------
test_that("handles NA values in 'x'", {
    x <- c("a", NA, "b", "b")
    from <- c("a", "b")
    to <- c("1", "2")
    out <- c("1", NA, "2", "2")
    expect_equal(rc_char(x, from, to), out)
})

test_that("handles NA values in 'to'", {
    x <- c("a", "a", "b", "b")
    from <- c("a", "b")
    to <- c("1", NA)
    out <- c("1", "1", NA, NA)
    expect_equal(rc_char(x, from, to), out)
})

# If values in x not in from ----------------------------------------

test_that("responds appropriately when values in x are not in from", {
    t1 <- letters[1:10]
    t1[1] <- "A"
    expect_warning(rc_char(t1, letters, 1:length(letters)))
    expect_equal(rc_char(t1, letters, 1:length(letters),
                        default_NA = TRUE, warn = FALSE),
                 c(NA, as.character(2:10)))
    expect_equal(rc_char(t1, letters, 1:length(letters),
                        default_NA = FALSE, warn = FALSE),
                 c("A", as.character(2:10)))
})