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)))
#})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.