CRAN Package Check Results for Package ModelMetrics

Last updated on 2019-12-07 00:53:38 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 1.2.2 51.99 36.17 88.16 ERROR
r-devel-linux-x86_64-debian-gcc 1.2.2 32.23 26.26 58.49 ERROR
r-devel-linux-x86_64-fedora-clang 1.2.2 109.91 OK
r-devel-linux-x86_64-fedora-gcc 1.2.2 99.71 OK
r-devel-windows-ix86+x86_64 1.2.2 104.00 58.00 162.00 OK
r-devel-windows-ix86+x86_64-gcc8 1.2.2 103.00 69.00 172.00 OK
r-patched-linux-x86_64 1.2.2 35.90 31.07 66.97 OK
r-patched-solaris-x86 1.2.2 107.70 OK
r-release-linux-x86_64 1.2.2 33.08 31.27 64.35 OK
r-release-windows-ix86+x86_64 1.2.2 114.00 64.00 178.00 OK
r-release-osx-x86_64 1.2.2 OK
r-oldrel-windows-ix86+x86_64 1.2.2 95.00 82.00 177.00 OK
r-oldrel-osx-x86_64 1.2.2 OK

Check Details

Version: 1.2.2
Check: tests
Result: ERROR
     Running 'testthat.R' [5s/6s]
    Running the tests in 'tests/testthat.R' failed.
    Complete output:
     > library(testthat)
     > library(ModelMetrics)
    
     Attaching package: 'ModelMetrics'
    
     The following object is masked from 'package:base':
    
     kappa
    
     >
     > test_check("ModelMetrics")
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
     :
     --- package (from environment) ---
     ModelMetrics
     --- call from context ---
     mlogLoss(y, xm)
     --- call from argument ---
     if (class(predicted) %in% c("data.frame")) {
     predicted = as.matrix(predicted)
     }
     --- R stacktrace ---
     where 1 at testthat/test_logloss.R#13: mlogLoss(y, xm)
     where 2: eval(code, test_env)
     where 3: eval(code, test_env)
     where 4: 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 5: doTryCatch(return(expr), name, parentenv, handler)
     where 6: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     where 7: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
     where 8: doTryCatch(return(expr), name, parentenv, handler)
     where 9: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),
     names[nh], parentenv, handlers[[nh]])
     where 10: tryCatchList(expr, classes, parentenv, handlers)
     where 11: 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 12: test_code(desc, code, env = parent.frame())
     where 13 at testthat/test_logloss.R#4: test_that("mlogLoss character/factor actual", {
     Levs = 8
     Size = 100
     y = sample(1:Levs, Size, replace = TRUE)
     xm = matrix(runif(Levs * Size), ncol = Levs)
     xm = xm/rowSums(xm)
     m1 <- mlogLoss(y, xm)
     m2 <- mlogLoss(as.character(y), xm)
     m3 <- mlogLoss(as.factor(y), xm)
     expect_true(m1 == m2)
     expect_true(m1 == m3)
     })
     where 14: eval(code, test_env)
     where 15: eval(code, test_env)
     where 16: 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 17: doTryCatch(return(expr), name, parentenv, handler)
     where 18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     where 19: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
     where 20: doTryCatch(return(expr), name, parentenv, handler)
     where 21: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),
     names[nh], parentenv, handlers[[nh]])
     where 22: tryCatchList(expr, classes, parentenv, handlers)
     where 23: 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 24: test_code(NULL, exprs, env)
     where 25: source_file(path, new.env(parent = env), chdir = TRUE, wrap = wrap)
     where 26: force(code)
     where 27: doWithOneRestart(return(expr), restart)
     where 28: withOneRestart(expr, restarts[[1L]])
     where 29: withRestarts(testthat_abort_reporter = function() NULL, force(code))
     where 30: 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 31: FUN(X[[i]], ...)
     where 32: lapply(paths, test_file, env = env, reporter = current_reporter,
     start_end_reporter = FALSE, load_helpers = FALSE, wrap = wrap)
     where 33: force(code)
     where 34: doWithOneRestart(return(expr), restart)
     where 35: withOneRestart(expr, restarts[[1L]])
     where 36: withRestarts(testthat_abort_reporter = function() NULL, force(code))
     where 37: 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 38: test_files(paths, reporter = reporter, env = env, stop_on_failure = stop_on_failure,
     stop_on_warning = stop_on_warning, wrap = wrap)
     where 39: 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 40: 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 41: test_check("ModelMetrics")
    
     --- value of length: 2 type: logical ---
     [1] FALSE FALSE
     --- function from context ---
     function (actual, predicted)
     {
     if (class(actual) %in% c("factor", "character")) {
     actual = as.numeric(as.factor(actual))
     }
     if (class(predicted) %in% c("data.frame")) {
     predicted = as.matrix(predicted)
     }
     eps <- 1e-15
     predicted = pmax(pmin(predicted, 1 - eps), eps)
     mlogLoss_(actual, predicted)
     }
     <bytecode: 0x4237ba0>
     <environment: namespace:ModelMetrics>
     --- function search by body ---
     Function mlogLoss in namespace ModelMetrics has this body.
     ----------- END OF FAILURE REPORT --------------
     -- 1. Error: mlogLoss character/factor actual (@test_logloss.R#13) ------------
     the condition has length > 1
     Backtrace:
     1. ModelMetrics::mlogLoss(y, xm)
    
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
     :
     --- package (from environment) ---
     ModelMetrics
     --- call from context ---
     mlogLoss(y, xm)
     --- call from argument ---
     if (class(predicted) %in% c("data.frame")) {
     predicted = as.matrix(predicted)
     }
     --- R stacktrace ---
     where 1: mlogLoss(y, xm)
     where 2: eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
     where 3: withVisible(code)
     where 4: withCallingHandlers(withVisible(code), warning = handle_warning,
     message = handle_message)
     where 5: force(code)
     where 6: withr::with_output_sink(temp, withCallingHandlers(withVisible(code),
     warning = handle_warning, message = handle_message))
     where 7: .capture(act$val <- eval_bare(quo_get_expr(.quo), quo_get_env(.quo)),
     ...)
     where 8: quasi_capture(enquo(object), NULL, evaluate_promise)
     where 9 at testthat/test_logloss.R#33: expect_silent(res1 <- mlogLoss(y, xm))
     where 10: eval(code, test_env)
     where 11: eval(code, test_env)
     where 12: 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 13: doTryCatch(return(expr), name, parentenv, handler)
     where 14: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     where 15: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
     where 16: doTryCatch(return(expr), name, parentenv, handler)
     where 17: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),
     names[nh], parentenv, handlers[[nh]])
     where 18: tryCatchList(expr, classes, parentenv, handlers)
     where 19: 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 20: test_code(desc, code, env = parent.frame())
     where 21 at testthat/test_logloss.R#23: test_that("mlogLoss different classes", {
     Levs = 8
     Size = 100
     y = sample(1:Levs, Size, replace = TRUE)
     xm = matrix(runif(Levs * Size), ncol = Levs)
     xm = xm/rowSums(xm)
     expect_silent(res1 <- mlogLoss(y, xm))
     expect_true(!is.nan(res1))
     expect_silent(res2 <- mlogLoss(y, as.data.frame(xm)))
     expect_true(res1 == res2)
     expect_true(all(res1 == res2))
     expect_silent(res3 <- mlogLoss(as.character(y), as.data.frame(xm)))
     expect_true(res1 == res3)
     expect_true(all(res1 == res3))
     expect_silent(res4 <- mlogLoss(as.factor(y), as.data.frame(xm)))
     expect_true(res1 == res4)
     expect_true(all(res1 == res4))
     eps <- 1e-15
     classes <- LETTERS[1:3]
     test_dat1 <- data.frame(obs = c("A", "A", "A", "B", "B",
     "C"), pred = c("A", "A", "A", "B", "B", "C"), A = c(1,
     0.8, 0.51, 0.1, 0.2, 0.3), B = c(0, 0.05, 0.29, 0.8,
     0.6, 0.3), C = c(0, 0.15, 0.2, 0.1, 0.2, 0.4))
     expected1 <- log(1 - eps) + log(0.8) + log(0.51) + log(0.8) +
     log(0.6) + log(0.4)
     expected1 <- -expected1/nrow(test_dat1)
     result1 <- mlogLoss(test_dat1$obs, test_dat1[, 3:5])
     expect_equal(result1, expected1)
     })
     where 22: eval(code, test_env)
     where 23: eval(code, test_env)
     where 24: 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 25: doTryCatch(return(expr), name, parentenv, handler)
     where 26: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     where 27: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
     where 28: doTryCatch(return(expr), name, parentenv, handler)
     where 29: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),
     names[nh], parentenv, handlers[[nh]])
     where 30: tryCatchList(expr, classes, parentenv, handlers)
     where 31: 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 32: test_code(NULL, exprs, env)
     where 33: source_file(path, new.env(parent = env), chdir = TRUE, wrap = wrap)
     where 34: force(code)
     where 35: doWithOneRestart(return(expr), restart)
     where 36: withOneRestart(expr, restarts[[1L]])
     where 37: withRestarts(testthat_abort_reporter = function() NULL, force(code))
     where 38: 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 39: FUN(X[[i]], ...)
     where 40: lapply(paths, test_file, env = env, reporter = current_reporter,
     start_end_reporter = FALSE, load_helpers = FALSE, wrap = wrap)
     where 41: force(code)
     where 42: doWithOneRestart(return(expr), restart)
     where 43: withOneRestart(expr, restarts[[1L]])
     where 44: withRestarts(testthat_abort_reporter = function() NULL, force(code))
     where 45: 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 46: test_files(paths, reporter = reporter, env = env, stop_on_failure = stop_on_failure,
     stop_on_warning = stop_on_warning, wrap = wrap)
     where 47: 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 48: 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 49: test_check("ModelMetrics")
    
     --- value of length: 2 type: logical ---
     [1] FALSE FALSE
     --- function from context ---
     function (actual, predicted)
     {
     if (class(actual) %in% c("factor", "character")) {
     actual = as.numeric(as.factor(actual))
     }
     if (class(predicted) %in% c("data.frame")) {
     predicted = as.matrix(predicted)
     }
     eps <- 1e-15
     predicted = pmax(pmin(predicted, 1 - eps), eps)
     mlogLoss_(actual, predicted)
     }
     <bytecode: 0x4237ba0>
     <environment: namespace:ModelMetrics>
     --- function search by body ---
     Function mlogLoss in namespace ModelMetrics has this body.
     ----------- END OF FAILURE REPORT --------------
     -- 2. Error: mlogLoss different classes (@test_logloss.R#33) ------------------
     the condition has length > 1
     Backtrace:
     1. testthat::expect_silent(res1 <- mlogLoss(y, xm))
     9. ModelMetrics::mlogLoss(y, xm)
    
     == testthat results ===========================================================
     [ OK: 59 | SKIPPED: 1 | WARNINGS: 0 | FAILED: 2 ]
     1. Error: mlogLoss character/factor actual (@test_logloss.R#13)
     2. Error: mlogLoss different classes (@test_logloss.R#33)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-devel-linux-x86_64-debian-clang

Version: 1.2.2
Check: tests
Result: ERROR
     Running ‘testthat.R’ [2s/3s]
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     > library(ModelMetrics)
    
     Attaching package: 'ModelMetrics'
    
     The following object is masked from 'package:base':
    
     kappa
    
     >
     > test_check("ModelMetrics")
     ── 1. Failure: mlogLoss different classes (@test_logloss.R#33) ────────────────
     `res1 <- mlogLoss(y, xm)` produced warnings.
    
     ══ testthat results ═══════════════════════════════════════════════════════════
     [ OK: 72 | SKIPPED: 1 | WARNINGS: 3 | FAILED: 1 ]
     1. Failure: mlogLoss different classes (@test_logloss.R#33)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc