Running ‘testthat.R’ [13s/373s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(cthist)
  > 
  > test_check("cthist")
  Error downloading version dates for DRKS ID DRKS00005219
  Here's the original error message:
  Error in curl::curl_fetch_memory(url, handle = handle): Failed to connect to drks.de port 443: Connection refused
   
  
  Unable to connect to drks.de
  Version caused an error: DRKS00005219 version 2
  Here's the original error message:
  Error in curl::curl_fetch_memory(url, handle = handle): Failed to connect to drks.de port 443: No route to host
   
  
  Version caused an error: DRKS00004013 version 14
  Here's the original error message:
  Error in curl::curl_fetch_memory(url, handle = handle): Failed to connect to drks.de port 443: Connection refused
   
  
  Version caused a warning: DRKS00005219 version 2
  Here's the original warning message:
  simpleWarning: Server error: (503) Service Unavailable https://drks.de/drks_web/compareTrialVersions.do?TRIAL_ID=DRKS00005219&version1=DRKS00005219_2_en.html&version2=DRKS00005219_2_en.html
   
  
  Version caused a warning: DRKS00004013 version 14
  Here's the original warning message:
  simpleWarning: Server error: (503) Service Unavailable https://drks.de/drks_web/compareTrialVersions.do?TRIAL_ID=DRKS00004013&version1=DRKS00004013_14_en.html&version2=DRKS00004013_14_en.html
   
  
  Version caused a warning: DRKS00005219 version 2
  Here's the original warning message:
  simpleWarning: Server error: (503) Service Unavailable https://drks.de/drks_web/compareTrialVersions.do?TRIAL_ID=DRKS00005219&version1=DRKS00005219_2_en.html&version2=DRKS00005219_2_en.html
   
  
  [ FAIL 3 | WARN 0 | SKIP 0 | PASS 32 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-drks_de_version_contacts.R:9:9): DRKS contacts download correctly ──
  Error in `version$contacts`: $ operator is invalid for atomic vectors
  Backtrace:
      ▆
   1. ├─testthat::expect_equal(...) at test-drks_de_version_contacts.R:9:8
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─jsonlite::fromJSON(version$contacts)
  ── Error (test-drks_de_version_enrolno.R:9:9): DRKS enrolment number downloads correctly ──
  Error in `version$enrolno`: $ operator is invalid for atomic vectors
  Backtrace:
      ▆
   1. └─testthat::expect_equal(version$enrolno, "300") at test-drks_de_version_enrolno.R:9:8
   2.   └─testthat::quasi_label(enquo(object), label, arg = "object")
   3.     └─rlang::eval_bare(expr, quo_get_env(quo))
  ── Error (test-drks_de_version_enroltype.R:9:9): DRKS enrolment type downloads correctly ──
  Error in `version$enroltype`: $ operator is invalid for atomic vectors
  Backtrace:
      ▆
   1. └─testthat::expect_equal(version$enroltype, "Actual") at test-drks_de_version_enroltype.R:9:8
   2.   └─testthat::quasi_label(enquo(object), label, arg = "object")
   3.     └─rlang::eval_bare(expr, quo_get_env(quo))
  
  [ FAIL 3 | WARN 0 | SKIP 0 | PASS 32 ]
  Error: Test failures
  Execution halted