Running ‘testthat.R’ [47s/122s]
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)  ──────────────────────────────────
  
  LT_f data for CAN state in the 5x10 format was not to be found. We have been looking here:
  www.prdh.umontreal.ca/BDLC/data/CAN/fltper_5x10.txt
  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: try(read.table(con, skip = 2, header = TRUE, na.strings = "."), stop("\n", what, 
         " data for ", country, " state in the ", interval, " format was not to be found. We have been looking here:\n", 
         path, call. = FALSE))
  13: tryCatch(expr, error = function(e) {
         call <- conditionCall(e)
         if (!is.null(call)) {
             if (identical(call[[1L]], quote(doTryCatch))) 
                 call <- sys.call(-4L)
             dcall <- deparse(call)[1L]
             prefix <- paste("Error in", dcall, ": ")
             LONG <- 75L
             sm <- strsplit(conditionMessage(e), "\n")[[1L]]
             w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")
             if (is.na(w)) 
                 w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], type = "b")
             if (w > LONG) 
                 prefix <- paste0(prefix, "\n  ")
         }
         else prefix <- "Error : "
         msg <- paste0(prefix, conditionMessage(e), "\n")
         .Internal(seterrmessage(msg[1L]))
         if (!silent && isTRUE(getOption("show.error.messages"))) {
             cat(msg, file = outFile)
             .Internal(printDeferredWarnings())
         }
         invisible(structure(msg, class = "try-error", condition = e))
     })
  14: tryCatchList(expr, classes, parentenv, handlers)
  15: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  16: value[[3L]](cond)
  17: stop("\n", what, " data for ", country, " state in the ", interval, " format was not to be found. We have been looking here:\n", 
         path, call. = FALSE)
  
        :Downloading AUS           :Downloading Japan           :Downloading Japan           :Downloading Kyoto     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: 941 | SKIPPED: 0 | WARNINGS: 1 | FAILED: 1 ]
  1. Error: (unknown) (@test_ReadCHMD.R#25) 
  
  Error: testthat unit tests failed
  Execution halted