Nothing
skip_on_cran()
tmp = tempfile()
status = emuia_download(commune = "Jejkowice", outdir = tmp, unzip = FALSE) # 37.1 KB
# status should be NULL (successfully downloaded), otherwise return NULL
if (!is.null(status)) {
return(NULL)
}
file_path = list.files(tmp, full.names = TRUE)
file_ext = substr(file_path, nchar(file_path) - 2, nchar(file_path))
test_that("check file ext", {
expect_true(file_ext == "zip")
})
# unzip
tmp = tempfile()
status = emuia_download(TERYT = 2412032, outdir = tmp, unzip = TRUE) # 37.1 KB
if (!is.null(status)) {
return(NULL)
}
file_path = list.files(tmp, full.names = TRUE)
file_ext = substr(file_path, nchar(file_path) - 2, nchar(file_path))
test_that("check if zip is removed", {
expect_false("zip" %in% file_ext)
})
# test stops
test_that("check stops", {
expect_error(emuia_download(), "'commune' and 'TERYT' are empty")
expect_error(emuia_download("Jejkowice", 2412032), "use only one input")
expect_error(emuia_download(commune = "XXX"), "incorrect county name")
expect_error(emuia_download(TERYT = "0"), "incorrect TERYT")
})
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.