tests/testthat/test-join.R

In poissonconsulting/checkr: Check the Properties of Common R Objects

test_that("join", {
  rlang::scoped_options(lifecycle_verbosity = "quiet")
data1 <- data.frame(x = 1:2)
data2 <- data.frame(x = 3:5, y = 2L)

expect_identical(check_join(data2, data1, by = c(y = "x")), data2)
expect_error(check_join(data2, data1, by = c(y = "x"), all_y = TRUE), "join between data2 and data1 must include all the rows in data1")
expect_error(check_join(data1, data2), "join between data1 and data2 must include all the rows in data1")
expect_error(check_join(data1, data2, by = c(x = "y")), "column 'y' in data2 must be a unique key")
expect_error(check_join(data2, data1, by = c(x = "y")), "data1 column names must include 'y'")
})

test_that("join different classes", {
  rlang::scoped_options(lifecycle_verbosity = "quiet")
data1 <- data.frame(x = 1:2)
data2 <- data.frame(x = c("3","4","5"), y = "2")

expect_identical(check_join(data2, data1, by = c(y = "x")), data2)
expect_error(check_join(data2, data1, by = c(y = "x"), all_y = TRUE), "join between data2 and data1 must include all the rows in data1")
expect_error(check_join(data1, data2), "join between data1 and data2 must include all the rows in data1")
expect_error(check_join(data1, data2, by = c(x = "y")), "column 'y' in data2 must be a unique key")
expect_error(check_join(data2, data1, by = c(x = "y")), "data1 column names must include 'y'")
})

test_that("join missing values", {
  rlang::scoped_options(lifecycle_verbosity = "quiet")
data1 <- data.frame(x = c(NA, 1:2))
data2 <- data.frame(x = c("3","4","5"), y = c("2", NA, "2"))

expect_identical(check_join(data2, data1, by = c(y = "x")), data2)
expect_error(check_join(data2, data1, by = c(y = "x"), all_y = TRUE), "join between data2 and data1 must include all the rows in data1")
expect_error(check_join(data1, data2), "join between data1 and data2 must include all the rows in data1")
expect_error(check_join(data1, data2, by = c(x = "y")), "column 'y' in data2 must be a unique key")
expect_error(check_join(data2, data1, by = c(x = "y")), "data1 column names must include 'y'")

data1 <- data.frame(x = c(1:2))
data2 <- data.frame(x = c("3","4","5"), y = c("2", NA, "2"))

expect_error(check_join(data2, data1, by = c(y = "x")), "join between data2 and data1 must include all the rows in data2")

data1 <- data.frame(x = c(NA, 1:2))
data2 <- data.frame(x = c("3","4","5"), y = "2")

expect_identical(check_join(data2, data1, by = c(y = "x")), data2)
expect_error(check_join(data2, data1, by = c(y = "x"), all_y = TRUE), "join between data2 and data1 must include all the rows in data1")
})