tests/testthat/test-function-nameByElement.R

test_that("nameByElement() works", {
  
  L <- list(
    list(group = "A", value = 1),
    list(group = "B", value = 2)
  )

  y <- nameByElement(L, "group")

  expect_is(y, "list")
  expect_identical(names(y), c("A", "B"))
})
KWB-R/kwb.utils documentation built on April 1, 2024, 7:12 a.m.