tests/testthat/test_webtide.R

In oce: Analysis of Oceanographic Data

# vim:textwidth=80:expandtab:shiftwidth=4:softtabstop=4
library(oce)

if (file.exists("/data/nwatl")) {
    test_that("webtide", {
        path <- paste(getOption("webtide"), "/data/nwatl", sep = "")
        pattern <- "nwatl_ll.nod"
        if (1 == length(list.files(path = path, pattern = pattern))) {
            a <- webtide("predict", longitude = -63, latitude = 44, plot = FALSE)
            expect_equal(names(a), c("time", "elevation", "u", "v", "node", "basedir", "region"))
            b <- webtide("map", longitude = -63, latitude = 44, plot = FALSE)
            expect_equal(names(b), c("node", "latitude", "longitude"))
            # The next three tests will fail if webtide is updated and the numbers
            # change, so they are blocked out, but still left here, in case
            # the developer may find them helpful.
            if (FALSE) {
                expect_equal(head(a$elevation), c(
                    -0.20609221409, -0.14463463411, -0.08172047958,
                    -0.01835870715, 0.04443627478, 0.10566059067
                ))
                expect_equal(head(a$u), c(
                    0.0069110978571, 0.0053063933931, 0.0038722056401,
                    0.0026186134050, 0.0015517477196, 0.0006737364902
                ))
                expect_equal(head(a$v), c(
                    0.04802913583, 0.04822143736, 0.04790889414,
                    0.04709160408, 0.04577651402, 0.04397733928
                ))
            }
        }
    })
}