tests/testthat/test_ipums_bind_rows.r

In mnpopcenter/ipumsr: Read 'IPUMS' Extract Files

context("ipums_bind_rows")

test_that(
  "simple bind rows example", {
    test1 <- tibble::tibble(
      x = haven::labelled(c(1, 2, 3), c("xyz" = 1)),
      y = 2:4
    )
    attr(test1$x, "label") <- "A var label"

    test2 <- tibble::tibble(
      x = haven::labelled(c(1), c("xyz" = 1)),
      z = "a"
    )
    attr(test2$x, "label") <- "A var label"

    bound <- ipums_bind_rows(test1, test2)

    expect_equal(names(bound), c("x", "y", "z"))
    expect_equal(as.vector(bound$x), c(1, 2, 3, 1))
    expect_equal(attributes(bound$x), attributes(test1$x))
  })


test_that(
  "mismatched attributes in bind rows", {
    test1 <- tibble::tibble(
      x = haven::labelled(c(1, 2, 3), c("xyz" = 1)),
      y = 2:4
    )
    attr(test1$x, "label") <- "A var label"

    test2 <- tibble::tibble(
      x = haven::labelled(c(1), c("xyz" = 1)),
      z = "a"
    )
    attr(test2$x, "label") <- "A different var label"

    expect_warning(bound <- ipums_bind_rows(test1, test2))

    expect_equal(names(bound), c("x", "y", "z"))
    expect_equal(as.vector(bound$x), c(1, 2, 3, 1))
  })