skip all on cran - do not render vignette

Author: sedv8808

tests/testthat/test_pingNeotoma.R

@@ -3,6 +3,7 @@ library("neotoma2")
 
 context("Ping Neotoma API to check availability")
 test_that("The Pings work", {
+  skip_on_cran()
   ping_head <- try(httr::HEAD("https://api.neotomadb.org"))
   ping_call <- try(pingNeotoma("neotoma"))
   testthat::expect_equal(ping_head$status_code,

tests/testthat/test_set_server.R

@@ -3,6 +3,7 @@ library("neotoma2")
 
 context("Switching servers works between local, dev and neotoma APIs.")
 testthat::test_that("`Switching server with `set_server()`.", {
+  skip_on_cran()
   set_server("dev")
   testthat::expect_true(Sys.getenv("APIPOINT") == "dev")
   set_server("local")
@@ -12,5 +13,6 @@ testthat::test_that("`Switching server with `set_server()`.", {
 })
 
 testthat::test_that("Invalid server throws error.", {
+  skip_on_cran()
   testthat::expect_error(set_server("invalid_server_name"))
 })

vignettes/neotoma2-package.Rmd

@@ -25,11 +25,11 @@ if (res$status_code == 200) {
     api_available <- TRUE
   }
 # Disable evaluation globally if API is down
-knitr::opts_chunk$set(eval = api_available,
+knitr::opts_chunk$set(eval = FALSE,
                       error = TRUE)
 ```
 
-```{r setup_md, include=FALSE,error=TRUE}
+```{r setup_md, include=FALSE, error=TRUE}
 safe_eval <- function(expr, fallback = "N/A") {
   tryCatch(eval(expr, envir = .GlobalEnv), error = function(e) fallback)
 }
@@ -89,7 +89,7 @@ All sites in Neotoma have a unique numeric identifier.  With the `neotoma2` pack
 
 If we're looking for a site and we know its specific identifier, we can use the simplest implementation of `get_sites()`.  Here we are searching for a site (Alexander Lake), where we know that the siteid for the record in Neotoma is `24`. We can get these siteids using the [Neotoma Explorer web application](https://apps.neotomadb.org/explorer/), or if we have some familiarity with the site records already.
 
-```{r getSiteBySiteID, error=TRUE}
+```{r getSiteBySiteID, error=TRUE, eval=FALSE}
 # Search for site by a single numeric ID:
 alex <- get_sites(24)
 alex