skip API dependant tests on CRAN

tests/testthat/test_box.R

@@ -1,6 +1,8 @@
 context("box")
 
 check_api <- function() {
+  skip_on_cran()
+
   code <- NA
   try(code <- httr::status_code(httr::GET(osem_endpoint())))
   if (is.na(code)) skip("API not available")

tests/testthat/test_boxes.R

@@ -1,6 +1,8 @@
 context("boxes")
 
 check_api <- function() {
+  skip_on_cran()
+
   code <- NA
   try(code <- httr::status_code(httr::GET(osem_endpoint())))
   if (is.na(code)) skip("API not available")

tests/testthat/test_counts.R

@@ -1,6 +1,8 @@
 context("counts")
 
 check_api <- function() {
+  skip_on_cran()
+
   code <- NA
   try(code <- httr::status_code(httr::GET(osem_endpoint())))
   if (is.na(code)) skip("API not available")

tests/testthat/test_measurements.R

@@ -1,6 +1,8 @@
 context("measurements")
 
 check_api <- function() {
+  skip_on_cran()
+
   code <- NA
   try(code <- httr::status_code(httr::GET(osem_endpoint())))
   if (is.na(code)) skip("API not available")
@@ -10,7 +12,6 @@ try({
   boxes <- osem_boxes()
  })
 
-
 test_that("measurements can be retrieved for a phenomenon", {
   check_api()
 

tests/testthat/test_phenomena.R

@@ -1,6 +1,8 @@
 context("phenomena")
 
 check_api <- function() {
+  skip_on_cran()
+
   code <- NA
   try(code <- httr::status_code(httr::GET(osem_endpoint())))
   if (is.na(code)) skip("API not available")