context("test-sinimr.R")
test_that("get_sinim_var_name returns a valid output", {
varname <- get_sinim_var_name("ingreso")
expect_is(varname, "character")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.