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))
})

Try the metaHelper package in your browser

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

metaHelper documentation built on Sept. 11, 2024, 6:43 p.m.