CRAN Package Check Results for Package MortalityLaws

Last updated on 2019-11-25 06:49:50 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 1.8.1 8.48 64.58 73.06 ERROR
r-devel-linux-x86_64-debian-gcc 1.8.1 6.33 49.66 55.99 ERROR
r-devel-linux-x86_64-fedora-clang 1.8.1 150.04 ERROR
r-devel-linux-x86_64-fedora-gcc 1.8.1 152.60 ERROR
r-devel-windows-ix86+x86_64 1.8.1 28.00 223.00 251.00 ERROR
r-devel-windows-ix86+x86_64-gcc8 1.8.1 17.00 163.00 180.00 OK
r-patched-linux-x86_64 1.8.1 6.62 117.78 124.40 OK
r-patched-solaris-x86 1.8.1 194.50 OK
r-release-linux-x86_64 1.8.1 7.63 124.52 132.15 ERROR
r-release-windows-ix86+x86_64 1.8.1 19.00 177.00 196.00 OK
r-release-osx-x86_64 1.8.1 OK
r-oldrel-windows-ix86+x86_64 1.8.1 9.00 227.00 236.00 OK
r-oldrel-osx-x86_64 1.8.1 OK

Check Details

Version: 1.8.1
Check: examples
Result: ERROR
    Running examples in 'MortalityLaws-Ex.R' failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: LawTable
    > ### Title: Compute Life Tables from Parameters of a Mortality Law
    > ### Aliases: LawTable
    >
    > ### ** Examples
    >
    > # Example 1 --- Makeham --- 4 tables ----------
    > x1 = 45:100
    > L1 = "makeham"
    > C1 = matrix(c(0.00717, 0.07789, 0.00363,
    + 0.01018, 0.07229, 0.00001,
    + 0.00298, 0.09585, 0.00002,
    + 0.00067, 0.11572, 0.00078),
    + nrow = 4, dimnames = list(1:4, c("A", "B", "C")))
    >
    > LawTable(x = 45:100, par = C1, law = L1)
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    MortalityLaws
     --- call from context ---
    eval(substitute(expr), data, enclos = parent.frame())
     --- call from argument ---
    if (!(K$iclass %in% valid_classes)) {
     stop(paste0("The class of the input should be: ", paste(valid_classes,
     collapse = ", ")), call. = FALSE)
    }
     --- R stacktrace ---
    where 1: eval(substitute(expr), data, enclos = parent.frame())
    where 2: eval(substitute(expr), data, enclos = parent.frame())
    where 3: with.default(input, {
     K <- find.my.case(Dx, Ex, mx, qx, lx, dx)
     C <- K$case
     valid_classes <- c("numeric", "matrix", "data.frame", NULL)
     if (!(K$iclass %in% valid_classes)) {
     stop(paste0("The class of the input should be: ", paste(valid_classes,
     collapse = ", ")), call. = FALSE)
     }
     SMS <- "contains missing values. These have been replaced with "
     if (!is.null(sex)) {
     if (!(sex %in% c("male", "female", "total")))
     stop("'sex' should be: 'male', 'female', 'total' or 'NULL'.",
     call. = FALSE)
     }
     if (C == "C1_DxEx") {
     Dx[is.na(Dx)] <- 0
     Ex[is.na(Ex) | Ex == 0] <- 0.01
     if (any(is.na(Dx)))
     warning("'Dx'", SMS, 0, call. = FALSE)
     if (any(is.na(Ex)))
     warning("'Ex'", SMS, 0.01, call. = FALSE)
     }
     if (C == "C2_mx") {
     mx <- uxAbove100(x, mx)
     }
     if (C == "C3_qx") {
     qx <- uxAbove100(x, qx)
     }
     if (C == "C4_lx") {
     lx[is.na(lx) & x >= 100] <- 0
     if (any(is.na(lx)))
     warning("'lx'", SMS, 0, call. = FALSE)
     }
     if (C == "C5_dx") {
     dx[is.na(dx)] <- 0
     if (any(is.na(dx)))
     warning("'dx'", SMS, 0, call. = FALSE)
     }
     if (!is.null(ax)) {
     if (!is.numeric(ax))
     stop("'ax' must be a numeric scalar (or NULL)", call. = FALSE)
     if (!any(length(ax) %in% c(1, length(x))))
     stop("'ax' must be a scalar of lenght 1 or a ", "vector of the same dimension as 'x'",
     call. = FALSE)
     }
     out <- list(x = x, Dx = Dx, Ex = Ex, mx = mx, qx = qx, lx = lx,
     dx = dx, sex = sex, lx0 = lx0, ax = ax, iclass = K$iclass,
     nLT = K$nLT, LTnames = K$LTnames)
     return(out)
    })
    where 4: with(input, {
     K <- find.my.case(Dx, Ex, mx, qx, lx, dx)
     C <- K$case
     valid_classes <- c("numeric", "matrix", "data.frame", NULL)
     if (!(K$iclass %in% valid_classes)) {
     stop(paste0("The class of the input should be: ", paste(valid_classes,
     collapse = ", ")), call. = FALSE)
     }
     SMS <- "contains missing values. These have been replaced with "
     if (!is.null(sex)) {
     if (!(sex %in% c("male", "female", "total")))
     stop("'sex' should be: 'male', 'female', 'total' or 'NULL'.",
     call. = FALSE)
     }
     if (C == "C1_DxEx") {
     Dx[is.na(Dx)] <- 0
     Ex[is.na(Ex) | Ex == 0] <- 0.01
     if (any(is.na(Dx)))
     warning("'Dx'", SMS, 0, call. = FALSE)
     if (any(is.na(Ex)))
     warning("'Ex'", SMS, 0.01, call. = FALSE)
     }
     if (C == "C2_mx") {
     mx <- uxAbove100(x, mx)
     }
     if (C == "C3_qx") {
     qx <- uxAbove100(x, qx)
     }
     if (C == "C4_lx") {
     lx[is.na(lx) & x >= 100] <- 0
     if (any(is.na(lx)))
     warning("'lx'", SMS, 0, call. = FALSE)
     }
     if (C == "C5_dx") {
     dx[is.na(dx)] <- 0
     if (any(is.na(dx)))
     warning("'dx'", SMS, 0, call. = FALSE)
     }
     if (!is.null(ax)) {
     if (!is.numeric(ax))
     stop("'ax' must be a numeric scalar (or NULL)", call. = FALSE)
     if (!any(length(ax) %in% c(1, length(x))))
     stop("'ax' must be a scalar of lenght 1 or a ", "vector of the same dimension as 'x'",
     call. = FALSE)
     }
     out <- list(x = x, Dx = Dx, Ex = Ex, mx = mx, qx = qx, lx = lx,
     dx = dx, sex = sex, lx0 = lx0, ax = ax, iclass = K$iclass,
     nLT = K$nLT, LTnames = K$LTnames)
     return(out)
    })
    where 5: LifeTable.check(input)
    where 6: LifeTable(xx, mx = hx, sex = sex, lx0 = lx0, ax = ax)
    where 7: LawTable(x = 45:100, par = C1, law = L1)
    
     --- value of length: 2 type: logical ---
    [1] FALSE TRUE
     --- function from context ---
     --- function search by body ---
     ----------- END OF FAILURE REPORT --------------
    Fatal error: the condition has length > 1
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc

Version: 1.8.1
Check: tests
Result: ERROR
     Running 'testthat.R' [3s/3s]
    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
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
     :
     --- package (from environment) ---
     MortalityLaws
     --- call from context ---
     eval(substitute(expr), data, enclos = parent.frame())
     --- call from argument ---
     if (!(K$iclass %in% valid_classes)) {
     stop(paste0("The class of the input should be: ", paste(valid_classes,
     collapse = ", ")), call. = FALSE)
     }
     --- R stacktrace ---
     where 1: eval(substitute(expr), data, enclos = parent.frame())
     where 2: eval(substitute(expr), data, enclos = parent.frame())
     where 3: with.default(input, {
     K <- find.my.case(Dx, Ex, mx, qx, lx, dx)
     C <- K$case
     valid_classes <- c("numeric", "matrix", "data.frame", NULL)
     if (!(K$iclass %in% valid_classes)) {
     stop(paste0("The class of the input should be: ", paste(valid_classes,
     collapse = ", ")), call. = FALSE)
     }
     SMS <- "contains missing values. These have been replaced with "
     if (!is.null(sex)) {
     if (!(sex %in% c("male", "female", "total")))
     stop("'sex' should be: 'male', 'female', 'total' or 'NULL'.",
     call. = FALSE)
     }
     if (C == "C1_DxEx") {
     Dx[is.na(Dx)] <- 0
     Ex[is.na(Ex) | Ex == 0] <- 0.01
     if (any(is.na(Dx)))
     warning("'Dx'", SMS, 0, call. = FALSE)
     if (any(is.na(Ex)))
     warning("'Ex'", SMS, 0.01, call. = FALSE)
     }
     if (C == "C2_mx") {
     mx <- uxAbove100(x, mx)
     }
     if (C == "C3_qx") {
     qx <- uxAbove100(x, qx)
     }
     if (C == "C4_lx") {
     lx[is.na(lx) & x >= 100] <- 0
     if (any(is.na(lx)))
     warning("'lx'", SMS, 0, call. = FALSE)
     }
     if (C == "C5_dx") {
     dx[is.na(dx)] <- 0
     if (any(is.na(dx)))
     warning("'dx'", SMS, 0, call. = FALSE)
     }
     if (!is.null(ax)) {
     if (!is.numeric(ax))
     stop("'ax' must be a numeric scalar (or NULL)", call. = FALSE)
     if (!any(length(ax) %in% c(1, length(x))))
     stop("'ax' must be a scalar of lenght 1 or a ", "vector of the same dimension as 'x'",
     call. = FALSE)
     }
     out <- list(x = x, Dx = Dx, Ex = Ex, mx = mx, qx = qx, lx = lx,
     dx = dx, sex = sex, lx0 = lx0, ax = ax, iclass = K$iclass,
     nLT = K$nLT, LTnames = K$LTnames)
     return(out)
     })
     where 4: with(input, {
     K <- find.my.case(Dx, Ex, mx, qx, lx, dx)
     C <- K$case
     valid_classes <- c("numeric", "matrix", "data.frame", NULL)
     if (!(K$iclass %in% valid_classes)) {
     stop(paste0("The class of the input should be: ", paste(valid_classes,
     collapse = ", ")), call. = FALSE)
     }
     SMS <- "contains missing values. These have been replaced with "
     if (!is.null(sex)) {
     if (!(sex %in% c("male", "female", "total")))
     stop("'sex' should be: 'male', 'female', 'total' or 'NULL'.",
     call. = FALSE)
     }
     if (C == "C1_DxEx") {
     Dx[is.na(Dx)] <- 0
     Ex[is.na(Ex) | Ex == 0] <- 0.01
     if (any(is.na(Dx)))
     warning("'Dx'", SMS, 0, call. = FALSE)
     if (any(is.na(Ex)))
     warning("'Ex'", SMS, 0.01, call. = FALSE)
     }
     if (C == "C2_mx") {
     mx <- uxAbove100(x, mx)
     }
     if (C == "C3_qx") {
     qx <- uxAbove100(x, qx)
     }
     if (C == "C4_lx") {
     lx[is.na(lx) & x >= 100] <- 0
     if (any(is.na(lx)))
     warning("'lx'", SMS, 0, call. = FALSE)
     }
     if (C == "C5_dx") {
     dx[is.na(dx)] <- 0
     if (any(is.na(dx)))
     warning("'dx'", SMS, 0, call. = FALSE)
     }
     if (!is.null(ax)) {
     if (!is.numeric(ax))
     stop("'ax' must be a numeric scalar (or NULL)", call. = FALSE)
     if (!any(length(ax) %in% c(1, length(x))))
     stop("'ax' must be a scalar of lenght 1 or a ", "vector of the same dimension as 'x'",
     call. = FALSE)
     }
     out <- list(x = x, Dx = Dx, Ex = Ex, mx = mx, qx = qx, lx = lx,
     dx = dx, sex = sex, lx0 = lx0, ax = ax, iclass = K$iclass,
     nLT = K$nLT, LTnames = K$LTnames)
     return(out)
     })
     where 5: LifeTable.check(input)
     where 6: LifeTable(xx, mx = hx, sex = sex, lx0 = lx0, ax = ax)
     where 7: LawTable(x, par = C3, law = "thiele")
     where 8: eval_bare(expr, quo_get_env(quo))
     where 9: quasi_label(enquo(object), arg = "object")
     where 10 at testthat/test_LawTable.R#32: expect_s3_class(LawTable(x, par = C3, law = "thiele"), "LifeTable")
     where 11: eval(code, test_env)
     where 12: eval(code, test_env)
     where 13: withCallingHandlers({
     eval(code, test_env)
     if (!handled && !is.null(test)) {
     skip_empty()
     }
     }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,
     message = handle_message, error = handle_error)
     where 14: doTryCatch(return(expr), name, parentenv, handler)
     where 15: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     where 16: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
     where 17: doTryCatch(return(expr), name, parentenv, handler)
     where 18: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),
     names[nh], parentenv, handlers[[nh]])
     where 19: tryCatchList(expr, classes, parentenv, handlers)
     where 20: tryCatch(withCallingHandlers({
     eval(code, test_env)
     if (!handled && !is.null(test)) {
     skip_empty()
     }
     }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,
     message = handle_message, error = handle_error), error = handle_fatal,
     skip = function(e) {
     })
     where 21: test_code(NULL, exprs, env)
     where 22: source_file(path, new.env(parent = env), chdir = TRUE, wrap = wrap)
     where 23: force(code)
     where 24: doWithOneRestart(return(expr), restart)
     where 25: withOneRestart(expr, restarts[[1L]])
     where 26: withRestarts(testthat_abort_reporter = function() NULL, force(code))
     where 27: with_reporter(reporter = reporter, start_end_reporter = start_end_reporter,
     {
     reporter$start_file(basename(path))
     lister$start_file(basename(path))
     source_file(path, new.env(parent = env), chdir = TRUE,
     wrap = wrap)
     reporter$.end_context()
     reporter$end_file()
     })
     where 28: FUN(X[[i]], ...)
     where 29: lapply(paths, test_file, env = env, reporter = current_reporter,
     start_end_reporter = FALSE, load_helpers = FALSE, wrap = wrap)
     where 30: force(code)
     where 31: doWithOneRestart(return(expr), restart)
     where 32: withOneRestart(expr, restarts[[1L]])
     where 33: withRestarts(testthat_abort_reporter = function() NULL, force(code))
     where 34: with_reporter(reporter = current_reporter, results <- lapply(paths,
     test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE,
     load_helpers = FALSE, wrap = wrap))
     where 35: test_files(paths, reporter = reporter, env = env, stop_on_failure = stop_on_failure,
     stop_on_warning = stop_on_warning, wrap = wrap)
     where 36: test_dir(path = test_path, reporter = reporter, env = env, filter = filter,
     ..., stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,
     wrap = wrap)
     where 37: test_package_dir(package = package, test_path = test_path, filter = filter,
     reporter = reporter, ..., stop_on_failure = stop_on_failure,
     stop_on_warning = stop_on_warning, wrap = wrap)
     where 38: test_check("MortalityLaws")
    
     --- value of length: 2 type: logical ---
     [1] FALSE TRUE
     --- function from context ---
     --- function search by body ---
     ----------- END OF FAILURE REPORT --------------
     Fatal error: the condition has length > 1
Flavor: r-devel-linux-x86_64-debian-clang

Version: 1.8.1
Check: tests
Result: ERROR
     Running ‘testthat.R’ [2s/3s]
    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
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
     :
     --- package (from environment) ---
     MortalityLaws
     --- call from context ---
     eval(substitute(expr), data, enclos = parent.frame())
     --- call from argument ---
     if (!(K$iclass %in% valid_classes)) {
     stop(paste0("The class of the input should be: ", paste(valid_classes,
     collapse = ", ")), call. = FALSE)
     }
     --- R stacktrace ---
     where 1: eval(substitute(expr), data, enclos = parent.frame())
     where 2: eval(substitute(expr), data, enclos = parent.frame())
     where 3: with.default(input, {
     K <- find.my.case(Dx, Ex, mx, qx, lx, dx)
     C <- K$case
     valid_classes <- c("numeric", "matrix", "data.frame", NULL)
     if (!(K$iclass %in% valid_classes)) {
     stop(paste0("The class of the input should be: ", paste(valid_classes,
     collapse = ", ")), call. = FALSE)
     }
     SMS <- "contains missing values. These have been replaced with "
     if (!is.null(sex)) {
     if (!(sex %in% c("male", "female", "total")))
     stop("'sex' should be: 'male', 'female', 'total' or 'NULL'.",
     call. = FALSE)
     }
     if (C == "C1_DxEx") {
     Dx[is.na(Dx)] <- 0
     Ex[is.na(Ex) | Ex == 0] <- 0.01
     if (any(is.na(Dx)))
     warning("'Dx'", SMS, 0, call. = FALSE)
     if (any(is.na(Ex)))
     warning("'Ex'", SMS, 0.01, call. = FALSE)
     }
     if (C == "C2_mx") {
     mx <- uxAbove100(x, mx)
     }
     if (C == "C3_qx") {
     qx <- uxAbove100(x, qx)
     }
     if (C == "C4_lx") {
     lx[is.na(lx) & x >= 100] <- 0
     if (any(is.na(lx)))
     warning("'lx'", SMS, 0, call. = FALSE)
     }
     if (C == "C5_dx") {
     dx[is.na(dx)] <- 0
     if (any(is.na(dx)))
     warning("'dx'", SMS, 0, call. = FALSE)
     }
     if (!is.null(ax)) {
     if (!is.numeric(ax))
     stop("'ax' must be a numeric scalar (or NULL)", call. = FALSE)
     if (!any(length(ax) %in% c(1, length(x))))
     stop("'ax' must be a scalar of lenght 1 or a ", "vector of the same dimension as 'x'",
     call. = FALSE)
     }
     out <- list(x = x, Dx = Dx, Ex = Ex, mx = mx, qx = qx, lx = lx,
     dx = dx, sex = sex, lx0 = lx0, ax = ax, iclass = K$iclass,
     nLT = K$nLT, LTnames = K$LTnames)
     return(out)
     })
     where 4: with(input, {
     K <- find.my.case(Dx, Ex, mx, qx, lx, dx)
     C <- K$case
     valid_classes <- c("numeric", "matrix", "data.frame", NULL)
     if (!(K$iclass %in% valid_classes)) {
     stop(paste0("The class of the input should be: ", paste(valid_classes,
     collapse = ", ")), call. = FALSE)
     }
     SMS <- "contains missing values. These have been replaced with "
     if (!is.null(sex)) {
     if (!(sex %in% c("male", "female", "total")))
     stop("'sex' should be: 'male', 'female', 'total' or 'NULL'.",
     call. = FALSE)
     }
     if (C == "C1_DxEx") {
     Dx[is.na(Dx)] <- 0
     Ex[is.na(Ex) | Ex == 0] <- 0.01
     if (any(is.na(Dx)))
     warning("'Dx'", SMS, 0, call. = FALSE)
     if (any(is.na(Ex)))
     warning("'Ex'", SMS, 0.01, call. = FALSE)
     }
     if (C == "C2_mx") {
     mx <- uxAbove100(x, mx)
     }
     if (C == "C3_qx") {
     qx <- uxAbove100(x, qx)
     }
     if (C == "C4_lx") {
     lx[is.na(lx) & x >= 100] <- 0
     if (any(is.na(lx)))
     warning("'lx'", SMS, 0, call. = FALSE)
     }
     if (C == "C5_dx") {
     dx[is.na(dx)] <- 0
     if (any(is.na(dx)))
     warning("'dx'", SMS, 0, call. = FALSE)
     }
     if (!is.null(ax)) {
     if (!is.numeric(ax))
     stop("'ax' must be a numeric scalar (or NULL)", call. = FALSE)
     if (!any(length(ax) %in% c(1, length(x))))
     stop("'ax' must be a scalar of lenght 1 or a ", "vector of the same dimension as 'x'",
     call. = FALSE)
     }
     out <- list(x = x, Dx = Dx, Ex = Ex, mx = mx, qx = qx, lx = lx,
     dx = dx, sex = sex, lx0 = lx0, ax = ax, iclass = K$iclass,
     nLT = K$nLT, LTnames = K$LTnames)
     return(out)
     })
     where 5: LifeTable.check(input)
     where 6: LifeTable(xx, mx = hx, sex = sex, lx0 = lx0, ax = ax)
     where 7: LawTable(x, par = C3, law = "thiele")
     where 8: eval_bare(expr, quo_get_env(quo))
     where 9: quasi_label(enquo(object), arg = "object")
     where 10 at testthat/test_LawTable.R#32: expect_s3_class(LawTable(x, par = C3, law = "thiele"), "LifeTable")
     where 11: eval(code, test_env)
     where 12: eval(code, test_env)
     where 13: withCallingHandlers({
     eval(code, test_env)
     if (!handled && !is.null(test)) {
     skip_empty()
     }
     }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,
     message = handle_message, error = handle_error)
     where 14: doTryCatch(return(expr), name, parentenv, handler)
     where 15: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     where 16: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
     where 17: doTryCatch(return(expr), name, parentenv, handler)
     where 18: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),
     names[nh], parentenv, handlers[[nh]])
     where 19: tryCatchList(expr, classes, parentenv, handlers)
     where 20: tryCatch(withCallingHandlers({
     eval(code, test_env)
     if (!handled && !is.null(test)) {
     skip_empty()
     }
     }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,
     message = handle_message, error = handle_error), error = handle_fatal,
     skip = function(e) {
     })
     where 21: test_code(NULL, exprs, env)
     where 22: source_file(path, new.env(parent = env), chdir = TRUE, wrap = wrap)
     where 23: force(code)
     where 24: doWithOneRestart(return(expr), restart)
     where 25: withOneRestart(expr, restarts[[1L]])
     where 26: withRestarts(testthat_abort_reporter = function() NULL, force(code))
     where 27: with_reporter(reporter = reporter, start_end_reporter = start_end_reporter,
     {
     reporter$start_file(basename(path))
     lister$start_file(basename(path))
     source_file(path, new.env(parent = env), chdir = TRUE,
     wrap = wrap)
     reporter$.end_context()
     reporter$end_file()
     })
     where 28: FUN(X[[i]], ...)
     where 29: lapply(paths, test_file, env = env, reporter = current_reporter,
     start_end_reporter = FALSE, load_helpers = FALSE, wrap = wrap)
     where 30: force(code)
     where 31: doWithOneRestart(return(expr), restart)
     where 32: withOneRestart(expr, restarts[[1L]])
     where 33: withRestarts(testthat_abort_reporter = function() NULL, force(code))
     where 34: with_reporter(reporter = current_reporter, results <- lapply(paths,
     test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE,
     load_helpers = FALSE, wrap = wrap))
     where 35: test_files(paths, reporter = reporter, env = env, stop_on_failure = stop_on_failure,
     stop_on_warning = stop_on_warning, wrap = wrap)
     where 36: test_dir(path = test_path, reporter = reporter, env = env, filter = filter,
     ..., stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,
     wrap = wrap)
     where 37: test_package_dir(package = package, test_path = test_path, filter = filter,
     reporter = reporter, ..., stop_on_failure = stop_on_failure,
     stop_on_warning = stop_on_warning, wrap = wrap)
     where 38: test_check("MortalityLaws")
    
     --- value of length: 2 type: logical ---
     [1] FALSE TRUE
     --- function from context ---
     --- function search by body ---
     ----------- END OF FAILURE REPORT --------------
     Fatal error: the condition has length > 1
Flavor: r-devel-linux-x86_64-debian-gcc

Version: 1.8.1
Check: tests
Result: ERROR
     Running ‘testthat.R’ [70s/475s]
    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
     :Downloading AUS :Downloading Japan :Downloading Japan ── 1. Error: (unknown) (@test_ReadJMD.R#20) ───────────────────────────────────
     Failed to connect to www.ipss.go.jp port 80: Connection timed out
     Backtrace:
    
     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: 953 | SKIPPED: 0 | WARNINGS: 1 | FAILED: 1 ]
     1. Error: (unknown) (@test_ReadJMD.R#20)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang

Version: 1.8.1
Check: re-building of vignette outputs
Result: WARN
    Error(s) in re-building vignettes:
    --- re-building ‘Installation.Rmd’ using rmarkdown
    --- finished re-building ‘Installation.Rmd’
    
    --- re-building ‘Intro.Rmd’ using rmarkdown
    
    HINT: Most of the functions work well with 'poissonL', however for complex mortality laws like Heligman-Pollard (HP) one can obtain a better fit using other loss functions (e.g. 'LF2'). You are strongly encouraged to test different option before deciding on the final version. The results might be slightly different.
    
    ! LaTeX Error: Environment cslreferences undefined.
    
    Error: processing vignette 'Intro.Rmd' failed with diagnostics:
    Failed to compile Intro.tex. See https://yihui.name/tinytex/r/#debugging for debugging tips. See Intro.log for more info.
    --- failed re-building ‘Intro.Rmd’
    
    SUMMARY: processing the following file failed:
     ‘Intro.Rmd’
    
    Error: Vignette re-building failed.
    Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang

Version: 1.8.1
Check: tests
Result: ERROR
     Running ‘testthat.R’ [71s/470s]
    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
     :Downloading AUS :Downloading Japan :Downloading Japan ── 1. Error: (unknown) (@test_ReadJMD.R#20) ───────────────────────────────────
     Failed to connect to www.ipss.go.jp port 80: Connection timed out
     Backtrace:
    
     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: 953 | SKIPPED: 0 | WARNINGS: 1 | FAILED: 1 ]
     1. Error: (unknown) (@test_ReadJMD.R#20)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc

Version: 1.8.1
Check: tests
Result: ERROR
     Running 'testthat.R' [161s]
    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
     :Downloading AUS :Downloading Japan :Downloading Japan -- 1. Error: (unknown) (@test_ReadJMD.R#20) -----------------------------------
     Failed to connect to www.ipss.go.jp port 80: Timed out
     Backtrace:
    
     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: 953 | SKIPPED: 0 | WARNINGS: 1 | FAILED: 1 ]
     1. Error: (unknown) (@test_ReadJMD.R#20)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-devel-windows-ix86+x86_64

Version: 1.8.1
Check: tests
Result: ERROR
     Running ‘testthat.R’ [65s/477s]
    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
     :Downloading AUS :Downloading Japan :Downloading Japan ── 1. Error: (unknown) (@test_ReadJMD.R#20) ───────────────────────────────────
     Failed to connect to www.ipss.go.jp port 80: Connection timed out
     Backtrace:
    
     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: 953 | SKIPPED: 0 | WARNINGS: 1 | FAILED: 1 ]
     1. Error: (unknown) (@test_ReadJMD.R#20)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-release-linux-x86_64