tests/testthat/test-VLOOKUP.R

test_that("Returns a data frame", {
  expect_equal(class(VLOOKUP(c("Nick", "Jake", "Tyler", "Nate"),
                             data.frame(name = c("Nick", "Jake", "Tyler", "Nate"),
                                        number = 1:4), "name", 2)),
               "data.frame")
})
njbultman/xlsxFunctions documentation built on Aug. 8, 2021, 3:14 p.m.