tests/testthat/test-id.R

test_that("drop preserves count of factor levels", {
  x <- factor(levels = c("a", "b"))
  expect_equal(id_var(x), structure(integer(), n = 2))
  expect_equal(id(data.frame(x)), structure(integer(), n = 2))
})

test_that("id works with dimensions beyond integer range", {
  df <- data.frame(matrix(c(1, 2), nrow = 2, ncol = 32))
  expect_equal(id(df), structure(c(1, 2), n = 2^32))
})

test_that("id_var() handles named vectors (#525)", {
  res <- id_var(c(a = 5, b = 3, c = 5))
  expect_equal(res, structure(c(2L, 1L, 2L), n = 2L))
})

Try the tidyr package in your browser

Any scripts or data that you put into this service are public.

tidyr documentation built on Feb. 16, 2023, 7:40 p.m.