.dev/test-value_at.R

In easystats/datawizard: Easy Data Wrangling and Statistical Transformations

test_that("value_at", {
  data(efc, package = "datawizard")
  expect_equal(value_at(efc$e42dep, 5), 4, ignore_attr = TRUE)
  expect_equal(value_at(efc$c12hour, 4), NA_real_, ignore_attr = TRUE)
  expect_equal(value_at(efc$c12hour, 4, remove_na = TRUE), 168, ignore_attr = TRUE)
  expect_equal(value_at(efc$c12hour, 5:7), efc$c12hour[5:7], ignore_attr = TRUE)
  expect_equal(value_at(efc$e42dep, 123456, default = 55), 55, ignore_attr = TRUE)
  expect_null(value_at(efc$e42dep, 123456))
  expect_null(value_at(efc$e42dep, NULL))
  expect_error(value_at(efc$e42dep, NA), regex = "`position` can't")
  expect_error(value_at(efc$e42dep, c(3, NA)), regex = "`position` can't")
})