tests/testthat/test-function-hsSafeName.R

test_that("hsSafeName() works", {

  existing <- c("a", "b")
  
  expect_identical(hsSafeName("c", existing), "c")
  
  expect_identical(hsSafeName("a", existing), "a_1")
  expect_identical(hsSafeName("a", c(existing, "a_1")), "a_2")
})
KWB-R/kwb.utils documentation built on April 1, 2024, 7:12 a.m.