library(knmiR)
context("Earthquake data")
test_that("Corrected input", {
expect_error(Earthquakes("ind"), "Catalogue type not known.")
})
test_that("Earthquakes catalogue gives the same results", {
quakes <- Earthquakes("induced", NULL, "1980/2015-11-15", path = NULL)
tectonicQuakes <- Earthquakes("tectonic", path = NULL)
expect_match(class(quakes)[1], "KnmiData")
expect_true(nrow(quakes) > 1210)
expect_true(nrow(tectonicQuakes) >= 1339)
expect_equal_to_reference(quakes, file = "./referenceOutput/outputQuakes.rds",
check.attributes = FALSE)
expect_equal_to_reference(Earthquakes("induced", Groningen, "1980/2015-11-15",
path = NULL),
file = "./referenceOutput/outputQuakesGroningen.rds", # nolint
check.attributes = FALSE)
})
test_that("Subsetting works", {
quakesSub <- Earthquakes("induced", period = "2015", path = NULL)
expect_false(any(is.na(quakesSub)))
expect_warning(Description(quakesSub[1 : 10]),
"*was modified before. No description available.")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.