tests/testthat/test_mapValues.R

context("mapValues")

test_that("mapValues", {
  expect_equal(mapValues(1:3, 2, 3), c(1, 3, 3))
  expect_equal(mapValues(letters[1:5], letters[1:5], rev(letters[1:5])), rev(letters[1:5]))
  expect_equal(mapValues(factor(c("a", "b", "c")), "b", "zzz"), factor(c("a", "zzz", "c"), levels = c("a", "zzz", "c")))
  expect_equal(mapValues(c("aab", "aba", "baa"), "aa", "zz", regex = TRUE), c("zzb", "aba", "bzz"))
  expect_equal(mapValues(c("aab", "aba", "baa"), "^aa.+", "zz", regex = TRUE), c("zz", "aba", "baa"))

  expect_error(mapValues(iris, 1, 1), "atomic")
  expect_error(mapValues(1:10, 1:2, 1), "length")
  expect_error(mapValues(1:10, 1, 1:2), "length")
})

Try the BBmisc package in your browser

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

BBmisc documentation built on Sept. 29, 2022, 5:12 p.m.