make report test more portable

ref #542

inst/test-data/specific-redcapr/report/default.R

@@ -1,12 +1 @@
-structure(list(record_id = c(1, 2, 3, 4, 5), height = c(7, 6, 
-180, 165, 193.04), health_complete = c(1, 0, 2, 2, 0), address = c("14 Rose Cottage St.  Kenning UK, 323232", 
-"14 Rose Cottage Blvd.  Kenning UK 34243", "243 Hill St.  Guthrie OK 73402", 
-"342 Elm  Duncanville TX, 75116", "Hotel Suite  New Orleans LA, 70115"
-), ethnicity = c(1, 1, 0, 1, 2)), class = "data.frame", row.names = c(NA, 
--5L), spec = structure(list(cols = list(record_id = structure(list(), class = c("collector_double", 
-"collector")), height = structure(list(), class = c("collector_double", 
-"collector")), health_complete = structure(list(), class = c("collector_double", 
-"collector")), address = structure(list(), class = c("collector_character", 
-"collector")), ethnicity = structure(list(), class = c("collector_double", 
-"collector"))), default = structure(list(), class = c("collector_guess", 
-"collector")), skip = 1L), class = "col_spec"))
+structure(list(), class = c("tbl_df", "tbl", "data.frame"), row.names = integer(0), names = character(0))

tests/testthat/test-report.R

@@ -2,7 +2,11 @@ library(testthat)
 
 credential          <- retrieve_credential_testing()
 update_expectation  <- FALSE
-report_id           <- 5980L
+report_id           <- 12L
+
+if (credential$redcap_uri != "https://redcap-dev-2.ouhsc.edu/redcap/api/") {
+  testthat::skip("Skip report tests on a new server")
+}
 
 test_that("smoke test", {
   testthat::skip_on_cran()