context("test-oec.R")
test_that("get_product code works properly for a partial matching", {
test_product <- get_productcode("fruit")
expect_is(test_product, "tbl")
expect_output(str(test_product), "6 variables")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.