library(sapfluxnetQC1)
###################################################
# logging #
log_sapfluxnet_setup('test.log', 'test', "DEBUG") #
###################################################
context('A1. Maps argument checks')
test_that('arguments error are correct', {
foo_data <- data.frame(x = rnorm(5,1,1),
si_country = c(rep('IRE', 2), rep('IRL', 3)))
foo_wrong_data <- data.frame(x = rnorm(5,1,1),
y = rpois(5,1))
expect_error(qc_download_maps(foo_wrong_data, getwd()), 'There is no country')
expect_error(qc_download_maps(c(1,2,3), getwd()), 'object is not a data.frame')
expect_error(qc_download_maps(foo_data, 'foo_folder'),
'Destination folder does not exist.')
})
context('A2. Maps Download')
test_that('download works', {
foo_data <- data.frame(x = rnorm(5,1,1),
si_country = c(rep('IRE', 2), rep('IRL', 3)))
expect_message(qc_download_maps(foo_data), '1 new maps downloaded')
file.remove('IRE_adm0.rds')
file.remove('IRL_adm0.rds')
expect_message(qc_download_maps(foo_data), '1 empty maps created due to download error')
expect_true(file_test("-f", 'IRE_adm0.rds'))
expect_true(file_test("-f", 'IRL_adm0.rds'))
file.remove('IRE_adm0.rds')
file.remove('IRL_adm0.rds')
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.