Nothing
skip_on_cran()
oldtz <- Sys.getenv('TZ', unset = NA)
Sys.setenv(TZ = 'UTC')
test_that("plotArray' failsafes kick in when needed", {
expect_error(plotArray("a"), "Could not recognise the input as an actel results object.", fixed = TRUE)
expect_error(plotArray(list("a")), "Could not recognise the input as an actel results object.", fixed = TRUE)
expect_error(plotArray(example.results, arrays = 1:2), "Could not find array(s) '1', '2' in the study area.", fixed = TRUE)
})
test_that("plotArray works properly", {
tryCatch(plotArray(example.results, arrays = "A1"),
warning = function(w) stop("plotArray threw an unexpected warning!\n", w))
tryCatch(plotArray(example.results, arrays = "A1", timestep = "hours"),
warning = function(w) stop("plotArray threw an unexpected warning!\n", w))
tryCatch(plotArray(example.results, arrays = "A1", timestep = "hours", cumulative = TRUE, y.style = "relative"),
warning = function(w) stop("plotArray threw an unexpected warning!\n", w))
tryCatch(plotArray(example.results, arrays = c("A1", "A2"), cumulative = TRUE, by.group = FALSE),
warning = function(w) stop("plotArray threw an unexpected warning!\n", w))
expect_is("The real tests are above, this is just to prevent test_that from complaining", "character")
})
if (is.na(oldtz)) Sys.unsetenv("TZ") else Sys.setenv(TZ = oldtz)
rm(list = ls())
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.