tests/testthat/test-search_sinim_vars.R

context("test-sinimr.R")

test_that("search_sinim_vars returns a valid output", {
  
  srch <- search_sinim_vars("ingreso")
  
  expect_is(srch, "data.frame")
  expect_output(str(srch), "81 obs. of  6 variables")
})
robsalasco/sinimr documentation built on July 16, 2025, 3:55 p.m.