Nothing
test_that("Tests invalid inputs", {
suppressWarnings(sds <- defStormsDataset(verbose = 0))
# Checking sdb input
expect_error(
checkInputsDefStormsList(
loi = NULL,
seasons = c(2015, 2021),
names = "PAM",
maxDist = 300,
scale = sshs,
scalePalette = NULL,
verbose = 2,
removeUnder = NULL
)
)
# Checking loi input
expect_error(
checkInputsDefStormsList(
sds = sds,
seasons = c(2015, 2021),
names = "PAM",
maxDist = 300,
scale = sshs,
scalePalette = NULL,
verbose = 2,
removeUnder = NULL
)
)
expect_error(
checkInputsDefStormsList(
sds = sds,
loi = c("Vanuatu", "New Caledonia"),
seasons = c(2015, 2021),
names = "PAM",
maxDist = 300,
scale = sshs,
scalePalette = NULL,
verbose = 2,
removeUnder = NULL
)
)
expect_error(
checkInputsDefStormsList(
sds = sds,
loi = 169,
seasons = c(2015, 2021),
names = "PAM",
maxDist = 300,
scale = sshs,
scalePalette = NULL,
verbose = 2,
removeUnder = NULL
)
)
expect_error(
checkInputsDefStormsList(
sds = sds,
loi = c(169, 170,-15,-14),
seasons = c(2015, 2021),
names = "PAM",
maxDist = 300,
scale = sshs,
scalePalette = NULL,
verbose = 2,
removeUnder = NULL
)
)
expect_error(
checkInputsDefStormsList(
sds = sds,
loi = c(169, 170,-15,-14),
seasons = c(2015, 2021),
names = "PAM",
maxDist = 300,
scale = sshs,
scalePalette = NULL,
verbose = 2,
removeUnder = NULL
)
)
expect_error(
checkInputsDefStormsList(
sds = sds,
loi = c(169,-100),
seasons = c(2015, 2021),
names = "PAM",
maxDist = 300,
scale = sshs,
scalePalette = NULL,
verbose = 2,
removeUnder = NULL
)
)
# Checking seasons input
expect_error(
checkInputsDefStormsList(
sds = sds,
loi = "Vanuatu",
seasons = c(1960, 2022),
names = "PAM",
maxDist = 300,
scale = sshs,
scalePalette = NULL,
verbose = 2,
removeUnder = NULL
)
)
expect_error(
checkInputsDefStormsList(
sds = sds,
loi = "Vanuatu",
seasons = c(1980, 2024),
names = "PAM",
maxDist = 300,
scale = sshs,
scalePalette = NULL,
verbose = 2,
removeUnder = NULL
)
)
expect_error(
checkInputsDefStormsList(
sds = sds,
loi = "Vanuatu",
seasons = 2015.7,
names = "PAM",
maxDist = 300,
scale = sshs,
scalePalette = NULL,
verbose = 2,
removeUnder = NULL
)
)
expect_error(
checkInputsDefStormsList(
sds = sds,
loi = "Vanuatu",
seasons = TRUE,
names = "PAM",
maxDist = 300,
scale = sshs,
scalePalette = NULL,
verbose = 2,
removeUnder = NULL
)
)
expect_error(
checkInputsDefStormsList(
sds = sds,
loi = "Vanuatu",
seasons = "2015",
names = "PAM",
maxDist = 300,
scale = sshs,
scalePalette = NULL,
verbose = 2,
removeUnder = NULL
)
)
# Checking names input
expect_error(
checkInputsDefStormsList(
sds = sds,
loi = "Vanuatu",
seasons = TRUE,
names = 123,
maxDist = 300,
scale = sshs,
scalePalette = NULL,
verbose = 2,
removeUnder = NULL
)
)
expect_error(
checkInputsDefStormsList(
sds = sds,
loi = "Vanuatu",
seasons = TRUE,
names = TRUE,
maxDist = 300,
scale = sshs,
scalePalette = NULL,
verbose = 2,
removeUnder = NULL
)
)
expect_error(
checkInputsDefStormsList(
sds = sds,
loi = "Vanuatu",
seasons = c(1980, 2000, 2020),
names = NULL,
maxDist = 300,
scale = sshs,
scalePalette = NULL,
verbose = 2,
removeUnder = NULL
)
)
# Checking maxDist input
expect_error(
checkInputsDefStormsList(
sds = sds,
loi = "Vanuatu",
seasons = c(2015, 2021),
names = "PAM",
maxDist = "hui",
verbose = 2,
removeUnder = NULL
)
)
expect_error(
checkInputsDefStormsList(
sds = sds,
loi = "Vanuatu",
seasons = c(2015, 2021),
names = "PAM",
maxDist = c(1, 3),
verbose = 2,
removeUnder = NULL
)
)
expect_error(
checkInputsDefStormsList(
sds = sds,
loi = "Vanuatu",
seasons = c(2015, 2021),
names = "PAM",
maxDist = -10,
verbose = 2,
removeUnder = NULL
)
)
expect_error(
checkInputsDefStormsList(
sds = sds,
loi = "Vanuatu",
seasons = c(2015, 2021),
names = "PAM",
maxDist = TRUE,
verbose = 2,
removeUnder = NULL
)
)
# Checking scale input
expect_error(
checkInputsDefStormsList(
sds = sds,
loi = "Vanuatu",
seasons = c(2015, 2021),
names = "PAM",
maxDist = 300,
scale = "1",
scalePalette = NULL,
verbose = 1,
removeUnder = NULL
)
)
expect_error(
checkInputsDefStormsList(
sds = sds,
loi = "Vanuatu",
seasons = c(2015, 2021),
names = "PAM",
maxDist = 300,
scale = c("1", "2", "3"),
scalePalette = NULL,
verbose = 1,
removeUnder = NULL
)
)
expect_error(
checkInputsDefStormsList(
sds = sds,
loi = "Vanuatu",
seasons = c(2015, 2021),
names = "PAM",
maxDist = 300,
scale = NULL,
scalePalette = NULL,
verbose = 1,
removeUnder = NULL
)
)
expect_error(
checkInputsDefStormsList(
sds = sds,
loi = "Vanuatu",
seasons = c(2015, 2021),
names = "PAM",
maxDist = 300,
scale = TRUE,
scalePalette = NULL,
verbose = 1,
removeUnder = NULL
)
)
expect_error(
checkInputsDefStormsList(
sds = sds,
loi = "Vanuatu",
seasons = c(2015, 2021),
names = "PAM",
maxDist = 300,
scale = c(-1, 20, 30),
scalePalette = NULL,
verbose = 1,
removeUnder = NULL
)
)
# Checking scalePalette input
expect_error(
checkInputsDefStormsList(
sds = sds,
loi = "Vanuatu",
seasons = c(2015, 2021),
names = "PAM",
maxDist = 300,
scale = sshs,
scalePalette = c("red", "blue", "green"),
verbose = 1,
removeUnder = NULL
)
)
expect_error(
checkInputsDefStormsList(
sds = sds,
loi = "Vanuatu",
seasons = c(2015, 2021),
names = "PAM",
maxDist = 300,
scale = sshs,
scalePalette = 1,
verbose = 1,
removeUnder = NULL
)
)
expect_error(
checkInputsDefStormsList(
sds = sds,
loi = "Vanuatu",
seasons = c(2015, 2021),
names = "PAM",
maxDist = 300,
scale = sshs,
scalePalette = TRUE,
verbose = 1,
removeUnder = NULL
)
)
# Checking verbose input
expect_error(
checkInputsDefStormsList(
sds = sds,
loi = "Vanuatu",
seasons = c(2015, 2021),
names = "PAM",
maxDist = 300,
scale = sshs,
scalePalette = NULL,
verbose = -1,
removeUnder = NULL
)
)
expect_error(
checkInputsDefStormsList(
sds = sds,
loi = "Vanuatu",
seasons = c(2015, 2021),
names = "PAM",
maxDist = 300,
scale = sshs,
scalePalette = NULL,
verbose = c(1, 3),
removeUnder = NULL
)
)
expect_error(
checkInputsDefStormsList(
sds = sds,
loi = "Vanuatu",
seasons = c(2015, 2021),
names = "PAM",
maxDist = 300,
scale = sshs,
scalePalette = NULL,
verbose = "hui",
removeUnder = NULL
)
)
expect_error(
checkInputsDefStormsList(
sds = sds,
loi = "Vanuatu",
seasons = c(2015, 2021),
names = "PAM",
maxDist = 300,
scale = sshs,
scalePalette = NULL,
verbose = TRUE,
removeUnder = NULL
)
)
# Checking removeUnder input
expect_error(
checkInputsDefStormsList(
sds = sds,
loi = "Vanuatu",
seasons = c(2015, 2021),
names = "PAM",
maxDist = 300,
scale = sshs,
scalePalette = NULL,
verbose = 2,
removeUnder = c(1, 2)
)
)
expect_error(
checkInputsDefStormsList(
sds = sds,
loi = "Vanuatu",
seasons = c(2015, 2021),
names = "PAM",
maxDist = 300,
scale = sshs,
scalePalette = NULL,
verbose = 2,
removeUnder = "hui"
)
)
expect_error(
checkInputsDefStormsList(
sds = sds,
loi = "Vanuatu",
seasons = c(2015, 2021),
names = "PAM",
maxDist = 300,
scale = sshs,
scalePalette = NULL,
verbose = 2,
removeUnder = -1
)
)
})
test_that("Test numeric vector loi input", {
suppressWarnings(sds <- defStormsDataset(verbose = 0))
sts <-
defStormsList(sds = sds,
loi = c(168.33,-17.73),
verbose = 0)
expect_identical(getNames(sts), c("PAM", "ZENA", "LUCAS"))
expect_identical(getObs(getStorm(sts, "LUCAS"))$poci[1:6],
c(100100, 100100, 100100, 100200, 100400, 100400))
})
test_that("Storm class getters", {
suppressWarnings(sds <- defStormsDataset(verbose = 0))
pam <-
defStormsList(
sds = sds,
loi = "Vanuatu",
names = "PAM",
verbose = 0
)
expect_identical(getNames(pam@data[["PAM"]]), "PAM")
expect_identical(getSeasons(pam@data[["PAM"]]), 2015)
expect_identical(getScale(pam@data[["PAM"]]), as.integer(6))
expect_identical(getNbObs(pam@data[["PAM"]]), as.integer(57))
expect_identical(getObs(pam@data[["PAM"]]), pam@data[["PAM"]]@obs.all)
expect_identical(getInObs(pam@data[["PAM"]]), pam@data[["PAM"]]@obs)
})
test_that("StormsList class getters", {
suppressWarnings(sds <- defStormsDataset(verbose = 0))
sts_nc <-
defStormsList(sds = sds,
loi = "New Caledonia",
verbose = 0)
expect_identical(getStorm(sts_nc, "NIRAN"), sts_nc@data[["NIRAN"]])
expect_error(getStorm(sts_nc, "NIRAN", 2015))
expect_identical(getNames(sts_nc),
c("PAM", "SOLO", "ULA", "UESI", "GRETEL", "LUCAS", "NIRAN"))
expect_identical(
getSeasons(sts_nc),
c(
"PAM" = 2015,
"SOLO" = 2015,
"ULA" = 2016,
"UESI" = 2020,
"GRETEL" = 2020,
"LUCAS" = 2021,
"NIRAN" = 2021
)
)
expect_identical(
getScale(sts_nc),
c(
"PAM" = as.integer(6),
"SOLO" = as.integer(1),
"ULA" = as.integer(5),
"UESI" = as.integer(2),
"GRETEL" = as.integer(2),
"LUCAS" = as.integer(2),
"NIRAN" = as.integer(6)
)
)
expect_identical(getBufferSize(sts_nc), sts_nc@buffer)
expect_identical(getLOI(sts_nc), sts_nc@spatialLoi)
expect_identical(getBuffer(sts_nc), sts_nc@spatialLoiBuffer)
expect_identical(getBufferSize(sts_nc), sts_nc@buffer)
})
test_that("Storm and stormsList class getters", {
suppressWarnings(sds <- defStormsDataset(verbose = 0))
sts_nc <-
defStormsList(sds = sds,
loi = "New Caledonia",
verbose = 0)
out <- capture_output_lines(print(sts_nc@data$PAM))
# Check that the Storm output is correct
expect_match(out[1], "Name: PAM")
expect_match(out[2], "Season: 2015")
expect_match(out[3], "Maximum level reached in scale: 6")
expect_match(out[4], "Indices of observations within buffer: 43 44 45 46 47")
expect_match(out[7], "1 2015-03-08 12:00:00 168.9000 -7.500000 13 0 93 100400 100500")
expect_match(tail(out, n = 1), "57 2015-03-15 12:00:00 178.5000 -33.799999 28 1 37 98200 99300")
out <- capture_output_lines(print(sts_nc))
# Check that the Storm output is correct
expect_match(out[3], "Number of storms: 7 ")
expect_match(out[7], "Name: PAM")
expect_match(out[8], "Season: 2015")
expect_match(out[72], "Name: SOLO")
expect_match(out[73], "Season: 2015")
expect_match(out[109], "Name: ULA")
expect_match(out[110], "Season: 2016")
expect_match(out[236], "Name: UESI")
expect_match(out[237], "Season: 2020")
expect_match(out[311], "Name: GRETEL")
expect_match(out[312], "Season: 2020")
expect_match(out[346], "Name: LUCAS")
expect_match(out[347], "Season: 2021")
expect_match(out[403], "Name: NIRAN")
expect_match(out[404], "Season: 2021")
})
test_that("Storms class getters for storm class", {
suppressWarnings(sds <- defStormsDataset(verbose = 0))
sts_nc <-
defStormsList(sds = sds,
loi = "New Caledonia",
verbose = 0)
expect_identical(getNbObs(sts_nc, "NIRAN"), getNbObs(getStorm(sts_nc, "NIRAN")))
expect_identical(getObs(sts_nc, "NIRAN"), getObs(getStorm(sts_nc, "NIRAN")))
expect_identical(getInObs(sts_nc, "NIRAN"), getInObs(getStorm(sts_nc, "NIRAN")))
})
test_that("Test convert loi function", {
suppressWarnings(sds <- defStormsDataset(verbose = 0))
pam <-
defStormsList(sds,
loi = "Vanuatu",
names = "PAM",
verbose = 0)
expect_warning(convertLoi(c(-30, 20)))
expect_identical(convertLoi("Vanuatu"), pam@spatialLoi)
expect_identical(sf::st_crs(convertLoi(eezNC))$input, "EPSG:4326")
expect_identical(sf::st_coordinates(convertLoi("SP")),
sf::st_coordinates(sf::st_polygon(list(
rbind(c(135,-60), c(290,-60), c(290, 0), c(135, 0), c(135,-60))
))))
sr1 <-
sf::st_polygon(list(rbind(
c(135,-60), c(290,-60), c(290, 0), c(135, 0), c(135,-60)
)))
sr2 <-
sf::st_polygon(list(rbind(
c(180, 0), c(290, 0), c(290, 60), c(180, 60), c(180, 0)
)))
spP <- sf::st_multipolygon(list(sr1, sr2))
test <- sf::st_as_sf(as(spP, "Spatial"))
sf::st_crs(test) <- as.character("wgs84")
expect_identical(sf::st_crs(convertLoi(test))$input, "EPSG:4326")
})
test_that("Test computeScaleIndice function", {
expect_equal(computeScaleIndice(49, sshs), 4)
expect_equal(computeScaleIndice(10, sshs), 0)
expect_equal(computeScaleIndice(100, sshs), 6)
})
test_that("Test makeBuffer function", {
suppressWarnings(sds <- defStormsDataset(verbose = 0))
pam <-
defStormsList(sds,
loi = "Vanuatu",
names = "PAM",
verbose = 0)
expect_identical(makeBuffer("Vanuatu", pam@spatialLoi, 300 * km),
pam@spatialLoiBuffer)
})
test_that("Test retrieveStorms function", {
suppressWarnings(sds <- defStormsDataset(verbose = 0))
pam <-
defStormsList(sds,
loi = "Vanuatu",
names = "PAM",
verbose = 0)
expect_identical(retrieveStorms(sds@database,
"PAM",
c(2015, 2021),
sshs,
NULL), as.integer(1))
})
test_that("Test writeStorm function", {
suppressWarnings(sds <- defStormsDataset(verbose = 0))
pam <-
defStormsList(sds,
loi = "Vanuatu",
names = "PAM",
verbose = 0)
expect_identical(writeStorm(list(), list(), sds, 1, getBuffer(pam), sshs),
list(list(getStorm(pam, "PAM")), list("PAM")))
})
test_that("Test default scale and scaleInput", {
suppressWarnings(sds <- defStormsDataset(verbose = 0))
sts_nc <-
defStormsList(sds = sds,
loi = "New Caledonia",
scale = c(10,30,50),
verbose = 0)
palette <- c('#0000FF', '#00AA54', '#55AA00', '#FF0000')
names(palette) <- c('Cat. 0', 'Cat. 1', 'Cat. 2', 'Cat. 3')
expect_equal(sts_nc@scalePalette, palette)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.