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")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.