tests/testthat/test-additional.R

In neonstore: NEON Data Store

context("additional")





test_that("bigger neon_store() import", {
  
  
  skip_on_cran()
  skip_if_offline()
  
  x <- neon_download(product = "DP1.10003.001",
                     start_date="2014-01-01",
                     end_date = "2017-01-01",
                     type = "basic")
  
  y <- neon_store(table = "brd_countdata-basic", n = 50)
  expect_true(nrow(y)> 0)
  z <- neon_store(table = "brd_countdata-basic", n = 50)
  expect_true(is.null(z))
  
  db <- neon_db()
  x <- DBI::dbListTables(db)
  expect_true("brd_countdata-basic-DP1.10003.001" %in% x)
  
  expect_true("provenance" %in% x)
  
  tbl <- DBI::dbReadTable(db, "brd_countdata-basic-DP1.10003.001")
  expect_is(tbl, "data.frame")
  expect_true(nrow(tbl) > 0)
  expect_true(any(grepl("observerDistance", colnames(tbl))))
  
  
  
})



test_that("beetles", {
  
  
  skip_on_cran()
  skip_if_offline()
  dir <- tempfile()
  x <- neon_download("DP1.10022.001",
                      site = "ORNL",
                      start_date = "2018-01-01",
                      end_date = "2019-01-01",
                      dir = dir)
  expect_is(x, "data.frame")
  expect_gt(nrow(x), 0)
  
  df <- neon_read("bet_sorting", dir = dir)
  expect_is(df, "data.frame")
  
  
})

test_that("Aquatic sensor data", {
  
  skip_on_cran()
  skip_if_offline()
  
  neon_download("DP1.20288.001", site = c("CRAM","SUGG"), type="basic")
  df <- neon_read("waq_instantaneous")
  expect_true("siteID" %in% colnames(df))

  df <- neon_read("waq_instantaneous", sensor_metadata = FALSE)
  
  expect_false("siteID" %in% colnames(df))

  
})


test_that("ECdata", {
  
  
  skip_on_cran()
  skip_if_offline()
  dir = tempfile()

  x <- neon_download(product = "DP4.00200.001",
                     site = "BART",
                     start_date = "2020-06-01",
                     end_date = "2020-07-01",
                     type = "basic",
                     dir = dir)
  expect_is(x, "data.frame")
  expect_gt(nrow(x), 0)
  
  ## confirm we omit gz 
  x <- neon_download(product = "DP4.00200.001",
                     site = "BART",
                     start_date = "2020-06-01",
                     end_date = "2020-07-01",
                     type = "basic",
                     dir = dir)
  expect_equal(nrow(x), 0)
  
  
  
  df <- neon_index(product = "DP4.00200.001",
                   start_date = "2020-06-01",
                   ext = "h5",
                   dir = dir)
  expect_is(df, "data.frame")
  expect_gt(nrow(df), 0)
  
  path_gz <- df$path[grepl("[.]gz", df$path)]
  path_h5 <- df$path[grepl("[.]h5", df$path)]
  
  expect_equal(length(path_gz), 0)
  expect_gt(length(path_h5), 0)

})



test_that("repeated download is zero-op", {
  
  
  skip_on_cran()
  skip_if_offline()
  
  y <- neon_download(product = "DP1.10003.001",
                        site = "YELL")

  x <- neon_download(product = "DP1.10003.001",
                        site = "YELL")
  expect_is(x, "data.frame")
  expect_equal(nrow(x), 0)
  
})