library(checkmate)
context("catalog")
test_that("function detects files and reads their names", {
abbr <- function(x){
toupper(x)
}
path <- system.file("test_datasets", package="rasterTools")
output <- catalog(path, abbreviateBy = abbr, silent = TRUE)
expect_data_frame(output, types = "character", ncols = 2, any.missing = FALSE, min.rows = 1)
})
test_that("names of output are correct", {
path <- system.file("test_datasets", package="rasterTools")
abbr <- function(x){
toupper(x)
}
output <- catalog(path, abbreviateBy = abbr, silent = TRUE)
expect_names(names(output), identical.to = c("original", "abbr"))
})
test_that("Error if arguments have wrong value", {
path <- system.file("csv", package="rasterTools")
abbr <- function(x){
toupper(x)
}
expect_error(catalog(path, abbreviateBy = abbr, type = "txt", silent = TRUE))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.