Nothing
context("lookup_muni")
# skip tests because they take too much time
skip_if(Sys.getenv("TEST_ONE") != "")
testthat::skip_on_cran()
# Reading the data -----------------------
test_that("lookup_muni", {
# read data
test_sf <- lookup_muni(name_muni = "fortaleza")
test_sf2 <- lookup_muni(code_muni=2304400)
test_sf3 <- lookup_muni(name_muni="all")
test_sf4 <- lookup_muni(code_muni="all")
# check sf object
expect_true(is(test_sf, "data.frame"))
expect_true(is(test_sf2, "data.frame"))
expect_true(is(test_sf3, "data.frame"))
expect_true(is(test_sf4, "data.frame"))
# check number of cols
expect_equal( ncol(test_sf), 13)
# When using two arguments (supposed to give a warning)
expect_warning(lookup_muni(name_muni="fortaleza", code_muni=2304400))
expect_warning( lookup_muni(name_muni="arroz", code_muni=2304400) )
})
# ERRORS and messagens -----------------------
test_that("lookup_muni", {
expect_error(lookup_muni())
# Wrong name
expect_error(lookup_muni(name_muni="arroz"))
# Wrong code
expect_error(lookup_muni(code_muni=99999999))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.