Nothing
library(oce)
test_that("multi-panel plots leave usr as it was originally", {
orig <- par("usr")
data(adp)
expect_silent(plot(adp))
expect_equal(par("usr"), orig)
data(adv)
expect_silent(plot(adv))
expect_equal(par("usr"), orig)
data(cm)
expect_silent(plot(cm))
expect_equal(par("usr"), orig)
data(ctd)
expect_silent(plot(ctd))
expect_equal(par("usr"), orig)
data(lisst)
expect_silent(plot(lisst))
expect_equal(par("usr"), orig)
data(lobo)
expect_warning(expect_warning(plot(lobo),
"no good pressures"),
"no longitude")
expect_equal(par("usr"), orig)
data(rsk)
expect_silent(plot(rsk))
expect_equal(par("usr"), orig)
data(sealevel)
expect_silent(plot(sealevel))
expect_equal(par("usr"), orig)
data(section)
expect_silent(plot(section))
expect_equal(par("usr"), orig)
})
test_that("oce.plot.ts() catches xlim errors", {
t0 <- as.POSIXct("1967-07-04", tz="UTC") # Canada's centenary
t <- seq(t0, length.out=24, by="1 hour")
y <- sin(as.numeric(t - t0) * 2 * pi / (12 * 3600))
expect_silent(oce.plot.ts(t, y))
xlim <- range(t)
expect_silent(oce.plot.ts(t, y, xlim=xlim))
expect_error(oce.plot.ts(t, y, xlim=rev(xlim)), "the elements of xlim must be in order")
expect_error(oce.plot.ts(t, y, xlim=c(xlim[1], NA)), "missing value where TRUE/FALSE needed")
})
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.