Running ‘testthat.R’ [9s/92s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(cthist)
  > 
  > test_check("cthist")
  Version caused a warning: NCT02110043 version 1
  Here's the original warning message:
  simpleWarning in readBin(structure(4L, class = c("url", "connection"), conn_id = <pointer: 0x175>), : URL 'https://clinicaltrials.gov/api/int/studies/NCT02110043/history/1': Timeout of 60 seconds was reached
   
  
  Saving _problems/test-clinicaltrials_gov_version_startdate-12.R
  NCT02586649 - 4 of 4
  2026-04-17 00:18:35.949333 NCT02586649 processed (4 versions, 100%)
  Rows: 1 Columns: 29
  -- Column specification --------------------------------------------------------
  Delimiter: ","
  chr  (20): nctid, overall_status, study_start_date_precision, primary_comple...
  dbl   (3): version_number, total_versions, enrolment
  lgl   (3): accepts_healthy_volunteers, whystopped, results_posted
  date  (3): version_date, study_start_date, primary_completion_date
  
  i Use `spec()` to retrieve the full column specification for this data.
  i Specify the column types or set `show_col_types = FALSE` to quiet this message.
  Rows: 4 Columns: 29
  -- Column specification --------------------------------------------------------
  Delimiter: ","
  chr  (20): nctid, overall_status, study_start_date_precision, primary_comple...
  dbl   (3): version_number, total_versions, enrolment
  lgl   (3): accepts_healthy_volunteers, whystopped, results_posted
  date  (3): version_date, study_start_date, primary_completion_date
  
  i Use `spec()` to retrieve the full column specification for this data.
  i Specify the column types or set `show_col_types = FALSE` to quiet this message.
  [ FAIL 1 | WARN 0 | SKIP 0 | PASS 30 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-clinicaltrials_gov_version_startdate.R:9:9'): ClinicalTrials.gov start date downloads correctly ──
  Error in `version$startdate`: $ operator is invalid for atomic vectors
  Backtrace:
      ▆
   1. └─testthat::expect_equal(version$startdate, "2014-03-01") at test-clinicaltrials_gov_version_startdate.R:9:9
   2.   └─testthat::quasi_label(enquo(object), label)
   3.     └─rlang::eval_bare(expr, quo_get_env(quo))
  
  [ FAIL 1 | WARN 0 | SKIP 0 | PASS 30 ]
  Error:
  ! Test failures.
  Execution halted