Running ‘testthat.R’ [7s/67s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(checkmate)
  > library(coalitions)
  > 
  > test_check("coalitions")
  ── 1. Error: State wide german scrapers work (@test-scrapers.R#21)  ────────────
  Timeout was reached: [www.wahlrecht.de] Operation timed out after 10001 milliseconds with 0 out of 0 bytes received
  Backtrace:
    1. checkmate::expect_data_frame(...)
    6. coalitions::scrape_wahlrecht(hp.vec[6])
   10. coalitions:::try_readHTML(address)
   11. base::tryCatch(...)
   12. base:::tryCatchList(expr, classes, parentenv, handlers)
   13. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   14. value[[3L]](cond)
  
  ── 2. Error: Federal german scrapers work (@test-scrapers.R#51)  ───────────────
  Timeout was reached: [www.wahlrecht.de] Operation timed out after 10001 milliseconds with 0 out of 0 bytes received
  Backtrace:
    1. coalitions::get_surveys_by()
    2. coalitions::scrape_by()
    6. coalitions:::try_readHTML(address)
    7. base::tryCatch(...)
    8. base:::tryCatchList(expr, classes, parentenv, handlers)
    9. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   10. value[[3L]](cond)
  
  ── 3. Error: Collapse parties works correctly (@test-scrapers.R#80)  ───────────
  Timeout was reached: [www.wahlrecht.de] Connection timed out after 10001 milliseconds
  Backtrace:
   1. coalitions::scrape_wahlrecht("https://www.wahlrecht.de/umfragen/gms.htm")
   5. coalitions:::try_readHTML(address)
   6. base::tryCatch(...)
   7. base:::tryCatchList(expr, classes, parentenv, handlers)
   8. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   9. value[[3L]](cond)
  
  ── 4. Error: workflow stable  ──────────────────────────────────────────────────
  Timeout was reached: [www.wahlrecht.de] Connection timed out after 10001 milliseconds
  Backtrace:
   1. coalitions::scrape_wahlrecht()
   5. coalitions:::try_readHTML(address)
   6. base::tryCatch(...)
   7. base:::tryCatchList(expr, classes, parentenv, handlers)
   8. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   9. value[[3L]](cond)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  [ OK: 60 | SKIPPED: 0 | WARNINGS: 13 | FAILED: 4 ]
  1. Error: State wide german scrapers work (@test-scrapers.R#21) 
  2. Error: Federal german scrapers work (@test-scrapers.R#51) 
  3. Error: Collapse parties works correctly (@test-scrapers.R#80) 
  4. Error: workflow stable 
  
  Error: testthat unit tests failed
  In addition: Warning messages:
  1: In is.function(FUN) :
    closing unused connection 4 (https://www.wahlrecht.de/umfragen/dimap.htm)
  2: In .Internal(vapply(X, FUN, FUN.VALUE, USE.NAMES)) :
    closing unused connection 5 (https://www.wahlrecht.de/umfragen/gms.htm)
  3: In .Internal(vapply(X, FUN, FUN.VALUE, USE.NAMES)) :
    closing unused connection 4 (https://www.wahlrecht.de/umfragen/landtage/bayern.htm)
  Execution halted