tests/testthat/test-duplicates.R

In poissonconsulting/poisdata: Read and Write Data

test_that("can read multiple hobo csv file", {
  rlang::local_options(lifecycle_verbosity = "quiet")

  tib <- dplyr::tibble(x = c(1, 2, 1), y = c(1, 1, 1))
  expect_identical(ps_duplicates(tib), tib[c(1, 3), ])
  expect_identical(ps_duplicates(as.data.frame(tib)), tib[c(1, 3), ])

  expect_equal(
    ps_duplicates(data.frame(x = c(1, 2, 1), y = 1:3), "x"),
    dplyr::tibble(x = c(1, 1), y = c(1, 3))
  )
  expect_equal(
    ps_duplicates(data.frame(x = c(1, 2, 1), y = 1:3), c("x", "y")),
    dplyr::tibble(x = double(0), y = double(0))
  )
})

test_that("ps_duplicates() gives deprecation message", {
  rlang::local_options(lifecycle_verbosity = "warning")
  expect_warning(
    ps_duplicates(data.frame(x = 1:2, y = 1:2)),
    regexp = "was deprecated"
  )
})