Running ‘testthat.R’ [1m/15m]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > # --------------------------------------------------- #
  > # Author: Marius D. Pascariu
  > # License: MIT
  > # Last update: Wed Jun 05 14:41:16 2019
  > # --------------------------------------------------- #
  > 
  > library(testthat)
  > # expect_message(library(MortalityLaws))
  > 
  > test_check("MortalityLaws")
  Loading required package: MortalityLaws
  [1] 1
  [1] 2
  [1] 3
  [1] 4
  [1] 5
  [1] 6
  [1] 7
  [1] 8
  [1] 9
  [1] 10
  [1] 11
  [1] 12
  [1] 13
  [1] 14
  [1] 15
  [1] 16
  M1: gompertz
  M2: gompertz0
  M3: invgompertz
  M4: makeham
  M5: makeham0
  M6: opperman
  M7: thiele
  M8: wittstein
  M9: perks
  M10: weibull
  M11: invweibull
  M12: vandermaen
  M13: vandermaen2
  M14: strehler_mildvan
  M15: quadratic
  M16: beard
  M17: beard_makeham
  M18: ggompertz
  M19: siler
  M20: HP
  M21: HP2
  M22: HP3
  M23: HP4
  M24: rogersplanck
  M25: martinelle
  M26: carriere1
  M27: carriere2
  M28: kostaki
  M29: kannisto
  M30: kannisto_makeham
  ── 1. Error: (unknown) (@test_ReadCHMD.R#25)  ──────────────────────────────────
  Failed to connect to www.prdh.umontreal.ca port 80: Connection timed out
  1: expect_silent(D <- ReadCHMD(what = "LT_f", regions = "CAN", interval = "5x10", show = F)) at testthat/test_ReadCHMD.R:25
  2: quasi_capture(enquo(object), NULL, 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: ReadCHMD(what = "LT_f", regions = "CAN", interval = "5x10", show = F)
  10: rbind(D, ReadHMD.core(what = what, country = regions[i], interval = interval, username = NULL, 
         password = NULL, link = "www.prdh.umontreal.ca/BDLC/data/"))
  11: ReadHMD.core(what = what, country = regions[i], interval = interval, username = NULL, 
         password = NULL, link = "www.prdh.umontreal.ca/BDLC/data/")
  12: RCurl::getURL(url = path)
  13: curlPerform(curl = curl, .opts = opts, .encoding = .encoding)
  14: function (type, msg, asError = TRUE) 
     {
         if (!is.character(type)) {
             i = match(type, CURLcodeValues)
             typeName = if (is.na(i)) 
                 character()
             else names(CURLcodeValues)[i]
         }
         typeName = gsub("^CURLE_", "", typeName)
         fun = (if (asError) 
             stop
         else warning)
         fun(structure(list(message = msg, call = sys.call()), class = c(typeName, "GenericCurlError", 
             "error", "condition")))
     }(7L, "Failed to connect to www.prdh.umontreal.ca port 80: Connection timed out", 
         TRUE)
  
        :Downloading AUS           :Downloading Japan           :Downloading Japan           :Downloading Kyoto     ── 2. Error: (unknown) (@test_availableX.R#33)  ────────────────────────────────
  Failed to connect to www.mortality.org port 443: Connection timed out
  1: availableHMD() at testthat/test_availableX.R:33
  2: RCurl::getURL(link)
  3: curlPerform(curl = curl, .opts = opts, .encoding = .encoding)
  4: function (type, msg, asError = TRUE) 
     {
         if (!is.character(type)) {
             i = match(type, CURLcodeValues)
             typeName = if (is.na(i)) 
                 character()
             else names(CURLcodeValues)[i]
         }
         typeName = gsub("^CURLE_", "", typeName)
         fun = (if (asError) 
             stop
         else warning)
         fun(structure(list(message = msg, call = sys.call()), class = c(typeName, "GenericCurlError", 
             "error", "condition")))
     }(7L, "Failed to connect to www.mortality.org port 443: Connection timed out", TRUE)
  
  1  Create mx_from_mx 
  2  Create mx_from_qx 
  3  Create mx_from_dx 
  4  Create mx_from_lx 
  5  Create qx_from_mx 
  6  Create qx_from_qx 
  7  Create qx_from_dx 
  8  Create qx_from_lx 
  9  Create dx_from_mx 
  10  Create dx_from_qx 
  11  Create dx_from_dx 
  12  Create dx_from_lx 
  13  Create lx_from_mx 
  14  Create lx_from_qx 
  15  Create lx_from_dx 
  16  Create lx_from_lx 
  17  Create Lx_from_mx 
  18  Create Lx_from_qx 
  19  Create Lx_from_dx 
  20  Create Lx_from_lx 
  21  Create Tx_from_mx 
  22  Create Tx_from_qx 
  23  Create Tx_from_dx 
  24  Create Tx_from_lx 
  25  Create ex_from_mx 
  26  Create ex_from_qx 
  27  Create ex_from_dx 
  28  Create ex_from_lx 
  ══ testthat results  ═══════════════════════════════════════════════════════════
  [ OK: 939 | SKIPPED: 0 | WARNINGS: 1 | FAILED: 2 ]
  1. Error: (unknown) (@test_ReadCHMD.R#25) 
  2. Error: (unknown) (@test_availableX.R#33) 
  
  Error: testthat unit tests failed
  Execution halted