tests/testthat/test_local_lobo.R

In dankelley/oce: Analysis of Oceanographic Data

library(oce)
test_that("lobo", {
    if (1 == length(list.files(path=".", pattern="local_data"))) {
        lobo <- read.lobo("local_data/lobo.dat")
        expect_equal(sort(names(lobo[["metadata"]])), c("filename", "flags", "units"))
        expect_equal(sort(names(lobo[["data"]])),
            c("airtemperature", "fluorescence", "nitrate", "pressure", "salinity",
                "temperature", "time", "u", "v"))
    }
})