tests/testthat/test-extend_var.R

x <- c("test")
y <- c("test", "test")
test_that("extending variable", {
  expect_equal(extend_var(x, 5), rep("test", 5))
  expect_equal(extend_var(y, 5), rep("test", 2))
})
RobertEmprechtinger/metaHelper documentation built on Aug. 5, 2024, 2:44 a.m.