CRAN Package Check Results for Maintainer ‘Yu Liu <liuyuchina123 at gmail.com>’

Last updated on 2024-11-21 19:53:12 CET.

Package	ERROR	NOTE	OK
ODRF	1	3	9

Package ODRF

Current CRAN status: ERROR: 1, NOTE: 3, OK: 9

Version: 0.0.4
Check: Rd cross-references
Result: NOTE Found the following Rd file(s) with Rd \link{} targets missing package anchors: ODT.Rd: as.party PPO.Rd: nnet, Pursuit as.party.ODT.Rd: party plot.ODT.Rd: as.party Please provide package anchors for all Rd \link{} targets not in the package itself and the base packages. Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-devel-windows-x86_64

Version: 0.0.4
Check: tests
Result: ERROR Running ‘spelling.R’ Running ‘testthat.R’ [11s/20s] Running the tests in ‘tests/testthat.R’ failed. Complete output: > # This file is part of the standard setup for testthat. > # It is recommended that you do not modify it. > # > # Where should you do additional test configuration? > # Learn more about the roles of various files in: > # * https://r-pkgs.org/tests.html > # * https://testthat.r-lib.org/reference/test_package.html#special-files > > library(testthat) > library(ODRF) Loading required package: partykit Loading required package: grid Loading required package: libcoin Loading required package: mvtnorm > > test_check("ODRF") *** caught segfault *** address 0x1, cause 'memory not mapped' Traceback: 1: ppr.default(Xi, Yi, weights = weights, nterms = 1, bass = 1) 2: ppr(Xi, Yi, weights = weights, nterms = 1, bass = 1) 3: doTryCatch(return(expr), name, parentenv, handler) 4: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 5: tryCatchList(expr, classes, parentenv, handlers) 6: 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, nlines = 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))}) 7: try(ppr(Xi, Yi, weights = weights, nterms = 1, bass = 1)$alpha, silent = TRUE) 8: RotMatPPO(X = X[nodeXIndx[[currentNode]], ], y = y[nodeXIndx[[currentNode]]], model = paramList$model, split = paramList$split, weights = paramList$weights, dimProj = paramList$dimProj, numProj = paramList$numProj, catLabel = paramList$catLabel) 9: ODT_compute(formula, Call, varName, X, y, split, lambda, NodeRotateFun, FunDir, paramList, MaxDepth, numNode, MinLeaf, Levels, subset, weights, na.action, catLabel, Xcat, Xscale, TreeRandRotate) 10: ODT.formula(Species ~ ., data = iris, split = "entropy", weights = weights) 11: ODT(Species ~ ., data = iris, split = "entropy", weights = weights) 12: eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) 13: withVisible(code) 14: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message) 15: force(code) 16: withr::with_output_sink(path, withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)) 17: .capture(act$val <- eval_bare(quo_get_expr(.quo), quo_get_env(.quo)), ...) 18: quasi_capture(enquo(object), NULL, evaluate_promise) 19: expect_silent(ODT(Species ~ ., data = iris, split = "entropy", weights = weights)) 20: eval(code, test_env) 21: eval(code, test_env) 22: 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) 23: doTryCatch(return(expr), name, parentenv, handler) 24: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 25: tryCatchList(expr, names[-nh], parentenv, handlers[-nh]) 26: doTryCatch(return(expr), name, parentenv, handler) 27: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], parentenv, handlers[[nh]]) 28: tryCatchList(expr, classes, parentenv, handlers) 29: 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) { }) 30: test_code(desc, code, env = parent.frame(), default_reporter = local_interactive_reporter()) 31: test_that("holdout mode holding out data with 0 weight", { weights <- rbinom(nrow(iris), 1, 0.5) expect_silent(ODT(Species ~ ., data = iris, split = "entropy", weights = weights))}) 32: eval(code, test_env) 33: eval(code, test_env) 34: 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) 35: doTryCatch(return(expr), name, parentenv, handler) 36: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 37: tryCatchList(expr, names[-nh], parentenv, handlers[-nh]) 38: doTryCatch(return(expr), name, parentenv, handler) 39: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], parentenv, handlers[[nh]]) 40: tryCatchList(expr, classes, parentenv, handlers) 41: 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) { }) 42: test_code(test = NULL, code = exprs, env = env, default_reporter = StopReporter$new()) 43: source_file(path, env = env(env), desc = desc, error_call = error_call) 44: FUN(X[[i]], ...) 45: lapply(test_paths, test_one_file, env = env, desc = desc, error_call = error_call) 46: doTryCatch(return(expr), name, parentenv, handler) 47: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 48: tryCatchList(expr, classes, parentenv, handlers) 49: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 50: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, error_call = error_call)) 51: test_files_serial(test_dir = test_dir, test_package = test_package, test_paths = test_paths, load_helpers = load_helpers, reporter = reporter, env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, desc = desc, load_package = load_package, error_call = error_call) 52: test_files(test_dir = path, test_paths = test_paths, test_package = package, reporter = reporter, load_helpers = load_helpers, env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, load_package = load_package, parallel = parallel) 53: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 54: test_check("ODRF") An irrecoverable exception occurred. R is aborting now ... Flavor: r-devel-linux-x86_64-fedora-gcc