test_that("Utils", {
data_dir <- system.file("extdata/raster/mod13q1", package = "sits")
sinop <- sits_cube(
source = "BDC",
collection = "MOD13Q1-6.1",
data_dir = data_dir,
progress = FALSE
)
fi <- sinop$file_info[[1]]
expect_error(length(unique(.by(fi, col = "banda", .fi_timeline))))
expect_false(.has_name(sinop$source))
})
test_that("Try", {
expect_error(
.try({
sits_cube(
source = "BDC",
collection = "MOD13Q1-6.1",
data_dir = ".",
progress = FALSE
)
.msg_error <- "no cube in directory"
})
)
expect_error(
.try({
sits_cube(
source = "BDC",
collection = "MOD13Q1-6.1",
data_dir = ".",
progress = FALSE
)
})
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.