tests/testthat/test_local_adv.R

In dankelley/oce: Analysis of Oceanographic Data

# vim:textwidth=80:expandtab:shiftwidth=4:softtabstop=4

library(oce)
if (1 == length(list.files(path = ".", pattern = "local_data"))) {
    test_that("nortek vector with integer from and to", {
        beam <- read.oce("local_data/adv_nortek_vector",
            from = 1, to = 10,
            latitude = 47.87943, longitude = -69.72533
        )
        expect_silent(xyz <- beamToXyzAdv(beam))
        expect_silent(enu <- xyzToEnuAdv(xyz))
        # FIXME: add some tests on the data here
    })
    # } else {
    #    message("No local_data/adv_nortek_vector file available for local tests.")
}

if (1 == length(list.files(path = ".", pattern = "local_data"))) {
    test_that("nortek vector with POSIXct from,to", {
        expect_silent(beam <- read.oce("local_data/adv_nortek_vector",
            from = as.POSIXct("2008-06-25 10:00:02", tz = "UTC"),
            to = as.POSIXct("2008-06-25 10:00:08", tz = "UTC"
            ),
            latitude = 47.87943, longitude = -69.72533
        ))
    })
    # } else {
    #    message("No local_data/adv_nortek_vector file available for local tests.")
}

if (1 == length(list.files(path = ".", pattern = "local_data"))) {
    test_that("local_data/adv_sontek", {
        xyz <- read.adv.sontek.adr("local_data/adv_sontek",
            from = 1, to = 20,
            latitude = 47.87943, longitude = -69.72533
        )
        expect_equal(c(19, 3), dim(xyz[["v"]]))
        expect_equal(-69.72533, xyz[["longitude"]])
        expect_equal(47.87943, xyz[["latitude"]])
        expect_equal("xyz", xyz[["originalCoordinate"]])
        # FIXME: add some tests on the data here
    })
    # } else {
    #    message("No local_data/adv_sontek file available for local tests.")
}