Running ‘testthat.R’ [2s/66s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(RonFHIR)
  > 
  > test_check("RonFHIR")
  ── 1. Error: fhirClient checks only connects to FHIR Servers STU 3 (@test-fhirCl
  Server error: (504) Gateway Timeout
  1: expect_silent(fhirClient$new("http://fhirtest.uhn.ca/baseDstu3")) at testthat/test-fhirClient.R:9
  2: quasi_capture(enquo(object), evaluate_promise)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  5: force(code)
  6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  7: withVisible(code)
  8: eval_bare(get_expr(quo), get_env(quo))
  9: fhirClient$new("http://fhirtest.uhn.ca/baseDstu3")
  10: .subset2(public_bind_env, "initialize")(...)
  11: initialize(self, private, endpoint)
  12: getJSON(paste(endpoint, "metadata", sep = ""))
  13: stop(http_status(response)$message, call. = FALSE)
  
  ── 2. Failure: SearchById (@test-fhirClient.R#51)  ─────────────────────────────
  nrow(example$entry) not equal to 1.
  target is NULL, current is numeric
  
  ── 3. Failure: SearchById (@test-fhirClient.R#52)  ─────────────────────────────
  example$entry$resource$resourceType not equal to "Patient".
  target is NULL, current is character
  
  ── 4. Failure: SearchById (@test-fhirClient.R#53)  ─────────────────────────────
  example$entry$resource$id not equal to "example".
  target is NULL, current is character
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 75 SKIPPED: 0 FAILED: 4
  1. Error: fhirClient checks only connects to FHIR Servers STU 3 (@test-fhirClient.R#9) 
  2. Failure: SearchById (@test-fhirClient.R#51) 
  3. Failure: SearchById (@test-fhirClient.R#52) 
  4. Failure: SearchById (@test-fhirClient.R#53) 
  
  Error: testthat unit tests failed
  Execution halted