ensure that tests run quickly on CRAN

DOI-USGS · May 28, 2024 · 3d8010d · 3d8010d
1 parent b74f91b
commit 3d8010d
Show file tree

Hide file tree

Showing 5 changed files with 10 additions and 0 deletions.
diff --git a/tests/testthat/test_geoconnex.R b/tests/testthat/test_geoconnex.R
@@ -1,5 +1,7 @@
 test_that("discover", {
 
+  skip_on_cran()
+
   expect_s3_class(discover_geoconnex_reference(), "data.frame")
 
   expect_equal(names(discover_geoconnex_reference()),
@@ -8,6 +10,9 @@ test_that("discover", {
 })
 
 test_that("get", {
+
+  skip_on_cran()
+
   expect_warning(avail <- get_geoconnex_reference())
 
   expect_equal(avail, discover_geoconnex_reference())

diff --git a/tests/testthat/test_get_3dhp.R b/tests/testthat/test_get_3dhp.R
@@ -1,5 +1,7 @@
 test_that("get_3dhp", {
 
+  skip_on_cran()
+
   expect_error(get_3dhp(universalreferenceid = "01234", type = "test"),
                "only be specified for hydrolocation")
 

diff --git a/vignettes/get_3dhp_data.Rmd b/vignettes/get_3dhp_data.Rmd
@@ -13,6 +13,7 @@ vignette: >
 library(nhdplusTools)
 
 local <- (Sys.getenv("BUILD_VIGNETTES") == "TRUE")
+
 if(local) {
   cache_path <- file.path(nhdplusTools_data_dir(), "3dhp_v_cache")
 } else {

diff --git a/vignettes/get_data_overview.Rmd b/vignettes/get_data_overview.Rmd
@@ -13,6 +13,7 @@ vignette: >
 library(nhdplusTools)
 
 local <- (Sys.getenv("BUILD_VIGNETTES") == "TRUE")
+
 if(local) {
   cache_path <- file.path(nhdplusTools_data_dir(), "data_v_cache")
 } else {

diff --git a/vignettes/plot_nhdplus.Rmd b/vignettes/plot_nhdplus.Rmd
@@ -12,6 +12,7 @@ vignette: >
 library(nhdplusTools)
 
 local <- (Sys.getenv("BUILD_VIGNETTES") == "TRUE")
+
 if(local) {
   cache_path <- file.path(nhdplusTools_data_dir(), "plot_v_cache")
 } else {