tests/testthat/test_local_satellite.R

In dankelley/oce: Analysis of Oceanographic Data

library(oce)
test_that("amsr", {
    if (1 == length(list.files(path=".", pattern="local_data"))) {
        amsr <- read.amsr("local_data/f34_20160808v7.2.gz")
        expect_equal("amsr", amsr[["spacecraft"]])
        expect_equal(c(1440, 720), dim(amsr[["SSTDay"]]))
        expect_equal(tolower(c("cloudDay", "cloudNight", "LFwindDay", "LFwindNight", "MFwindDay", "MFwindNight",
            "rainDay", "rainNight", "SSTDay", "SSTNight", "timeDay", "timeNight", "vaporDay",
            "vaporNight")),
            sort(tolower(names(amsr@data))))
        #summary(amsr)
        #expect_warning(plot(amsr), "auto-decimating first index of large image by 3")
    }
})