context(".validate_files()")
test_that(".validate_files() stops if not specified", {
files <- NULL
expect_error(.validate_files(files))
})
context(".validate_dsn()")
test_that(".validate_dsn() stops if invalid", {
dsn <- "/dev/NULL"
expect_error(.validate_dsn(dsn))
})
context(".validate_year()")
test_that(".validate_year() defaults to current year if none specified", {
year_list <- NULL
year_list <- .validate_year(year_list)
expect_equal(year_list, as.numeric(format(Sys.Date(), "%Y")))
})
context(".validate_year()")
test_that(".validate_year() returns valid years object", {
year_list <- 1983:2000
year_list <- .validate_year(year_list)
expect_equal(year_list, 1983:2000)
})
context(".validate_vars()")
test_that(".validate_vars sets vars to TEMP if NULL", {
vars <- NULL
vars <- .validate_vars(vars)
expect_equal(vars, "TEMP")
})
context(".validate_vars()")
test_that(".validate_vars sets vars errors if wrong value is entered", {
vars <- c("TEMP", "MAX", "MIN", "RH", "PRCP")
expect_error(.validate_vars(vars))
})
context(".validate_bz2()")
test_that(".validate_bz2 errors if no list of files is given", {
file_list <- NULL
expect_error(.validate_bz2(file_list))
})
context(".validate_max_missing()")
test_that(".validate_max_missing errors with invalid values", {
missing <- .5
expect_error(.validate_max_missing(missing))
missing <- NA
expect_error(.validate_max_missing(missing))
})
context(".validate_resolution()")
test_that(".validate_resolution errors if wrong value is entered", {
resolution <- NULL
agg <- .validate_resolution(resolution)
expect_equal(agg, 6)
resolution <- 9
expect_error(.validate_resolution(resolution))
resolution <- 1
agg <- .validate_resolution(resolution)
expect_equal(agg, 12)
resolution <- .5
agg <- .validate_resolution(resolution)
expect_equal(agg, 6)
resolution <- .25
agg <- .validate_resolution(resolution)
expect_equal(agg, 3)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.