tests/testthat/test-tidync.R

In ncmeta: Straightforward 'NetCDF' Metadata

context("test-tidync.R")
context("filter")

# x1 <- tidync(f1) %>% activate("D5,D12") %>% hyper_filter(QCcheckNum  = index < 2)
# x2 <- tidync(f1) %>% activate("D5,D12") %>% hyper_filter()
# 
# nc_vars(f1)
# ## dimensions without variables
# x1 %>% expect_s3_class("tidync")
# x2 %>% expect_s3_class("tidync")

test_that("file open and metadata is ok", {
  skip_on_cran()
  
  f1 <- system.file("extdata/madishydro.nc", package = "ncmeta")
  
  skip_if_not(file.exists(f1))
  nc_axes(f1)   %>% expect_s3_class("tbl_df") %>% 
    expect_named(c("axis", "variable", "dimension"))
})

#test_that("indexing works", {
#  l3file <- system.file("extdata/oceandata", 
 #                       "S20080012008031.L3m_MO_CHL_chlor_a_9km.nc", package = "tidync")
 # ind0 <- tidync(l3file) %>% hyper_filter()
#  expect_that(ind0$dimension$count[ind0$dimension$active], equals(c(2160L, 4320L)))
  
#  ind1 <- tidync(l3file) %>% hyper_filter(lon = index == 100) 
  
#  expect_that(ind1$dimension$count[ind0$dimension$active], equals(c(2160L, 1L)))
#  expect_warning(ind2 <- tidync(l3file) %>% hyper_filter(lon = index %% 100 == 0))
#  expect_that(ind2$dimension$count[ind2$dimension$active], equals(c(2160, 4201)))  
  
#})