tests/testthat/test-get_sinim.R

In robsalasco/sinimr: Chilean Municipalities Information System Wrapper

context("test-sinimr.R")

test_that("get_sinim returns a valid output", {
  
  tbl <- get_sinim(880, 2015)
  
  expect_is(tbl, "data.frame")
  expect_true(is.numeric(tbl$value))
  expect_output(str(tbl), "345 obs. of  5 variables")
})


test_that("get_sinim returns a character", {
  
  tbl <-  get_sinim(4333, 2017)
  
  expect_true(is.character(tbl$value))
})

test_that("get_sinim returns a numeric on mixed", {
  
  tbl <-  get_sinim(c(880, 4210), 2017)
  
  expect_true(is.numeric(tbl$value))
})

test_that("get_sinim returns a character on mixed", {
  
  tbl <-  get_sinim(c(4333, 4211), 2017)
  
  expect_true(is.character(tbl$value))
})

test_that("get_sinim returns a numeric on failed", {
  
  tbl <-  get_sinim(c(4333, 4211), 2015)
  
  expect_true(is.numeric(tbl$value))
})

test_that("get_sinim returns a sf object", {
  
  tbl <-  get_sinim(c(4333, 4211), 2015, geometry=T)
  
  expect_is(tbl, c("sf", "data.frame"))
})

test_that("get_sinim returns a valid output using a region subset", {
  
  tbl <-  get_sinim(c(4333, 4211), 2015, region=1)
  
  expect_is(tbl, c("data.frame"))
  expect_output(str(tbl), "14 obs. of  5 variables")
})

test_that("get_sinim returns a valid output using a provincia subset", {
  
  tbl <-  get_sinim(c(4333, 4211), 2015, provincia=14)
  
  expect_is(tbl, c("data.frame"))
  expect_output(str(tbl), "10 obs. of  5 variables")
})

test_that("get_sinim returns a valid output using a comuna subset", {
  
  tbl <-  get_sinim(c(4333, 4211), 2015, comuna=13123)
  
  expect_is(tbl, c("data.frame"))
  expect_output(str(tbl), "2 obs. of  5 variables")
})

test_that("get_sinim returns a valid output using a AUC subset", {
  
  tbl <-  get_sinim(var=882, year=2018, region = 13, truevalue = T, geometry = T, auc = T, unit = "limites")
  
  expect_is(tbl, c("data.frame"))
  expect_output(str(tbl), "37 obs. of  6 variables")
})