setwd("../..")
####================================================
# Testing functions episem, data2SE, SE2date, seqSE
####================================================
# episem
out1 <- episem(x= as.Date("2015-01-01", format="%Y-%m-%d", separa = ''))
test_that("episem output should be numeric if separa = ''", {
expect_true(class(out1) == "numeric")
})
out2 <- episem(x= as.Date("2015-01-01", format="%Y-%m-%d"), separa = '-')
test_that("episem output should be a character if separa != ''", {
expect_true(class(out2) == "character")
})
out3 <- episem(x= as.Date("2015-01-01", format="%Y-%m-%d"), separa = '-')
test_that("episem output gave the wrong result''", {
expect_true(out3 == "2014-53")
})
out4 <- episem(x= as.Date("2015-01-01", format="%Y-%m-%d"), retorna = "Y")
test_that("episem output gave the wrong result''", {
expect_true(out4 == 2014)
})
rm(out1, out2, out3, out4)
####==================================
# getCidades ----
####==================================
cc <- getCidades(regional = "Metropolitana I", uf="Rio de Janeiro",datasource=con)
test_that("getCidades: produce required output",{
expect_named(cc, c("municipio_geocodigo","nome","nome_regional","nome_macroreg","uf"),ignore.order = TRUE)})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.