CRAN Package Check Results for Package RDS

Last updated on 2019-12-11 22:51:20 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 0.9-0 25.08 180.35 205.43 ERROR
r-devel-linux-x86_64-debian-gcc 0.9-0 21.42 133.86 155.28 OK
r-devel-linux-x86_64-fedora-clang 0.9-0 241.68 OK
r-devel-linux-x86_64-fedora-gcc 0.9-0 237.00 OK
r-devel-windows-ix86+x86_64 0.9-0 49.00 286.00 335.00 OK
r-devel-windows-ix86+x86_64-gcc8 0.9-0 51.00 379.00 430.00 OK
r-patched-linux-x86_64 0.9-0 21.03 159.95 180.98 OK
r-patched-solaris-x86 0.9-0 308.80 OK
r-release-linux-x86_64 0.9-0 23.17 160.30 183.47 OK
r-release-windows-ix86+x86_64 0.9-0 52.00 221.00 273.00 OK
r-release-osx-x86_64 0.9-0 OK
r-oldrel-windows-ix86+x86_64 0.9-0 41.00 197.00 238.00 OK
r-oldrel-osx-x86_64 0.9-0 ERROR

Check Details

Version: 0.9-0
Check: tests
Result: ERROR
     Running 'tests.R' [15s/19s]
    Running the tests in 'tests/tests.R' failed.
    Complete output:
     >
     >
     > library(testthat)
     > library(RDS)
     >
     > test_check("RDS")
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
     :
     --- package (from environment) ---
     RDS
     --- call from context ---
     as.network.uncompressed.rds(data$sim[[1]])
     --- call from argument ---
     if (class(x) == "network") {
     return(x)
     }
     --- R stacktrace ---
     where 1: as.network.uncompressed.rds(data$sim[[1]])
     where 2: sfn(j, data)
     where 3: getsamples.RDS.C(sim, dummy, M1, M2, N, nsamp0, fixinitial, n,
     coupons, dummydis = dummydis, parallel = parallel, parallel.type = parallel.type,
     seed = seed, seed.indices = seed.indices, verbose = verbose)
     where 4: oneiteration(sampleTab, indices, dummy, N, Qstart, todistab,
     tonodistab, dummydis, dummydegs, M1, M2, short = short, theta0 = theta0,
     parallel = parallel, parallel.type = parallel.type, MPLEsamplesize = MPLEsamplesize,
     SAN.maxit = SAN.maxit, SAN.nsteps = SAN.nsteps, interval = interval,
     crossStat = crossStat, rawCounts = rawCounts, net = net,
     homophily = homophily, fixinitial = fixinitial, nsamp0 = nsamp0,
     coupons = coupons, seed = seed + itnum, seed.indices = seed.indices,
     verbose = verbose)
     where 5: getnetest(dissample = outcome, degsample = deg, N = N, todisall = todis,
     tonodisall = tonodis, nit = number.of.iterations, M1 = M1,
     M2 = M2, seed = seed, short = FALSE, theta0 = -1, parallel = parallel,
     parallel.type = parallel.type, Qstart = initial.sampling.probabilities,
     MPLEsamplesize = MPLE.samplesize, maxdeg = max.degree, SAN.maxit = SAN.maxit,
     SAN.nsteps = SAN.nsteps, fixinitial = fixinitial, nsamp0 = number.of.seeds,
     coupons = number.of.coupons, crossStat = number.of.cross.ties,
     interval = sim.interval, net = NULL, rds.data = rds.data,
     trait.variable = trait.variable, verbose = verbose)
     where 6 at testthat/test-estimators.R#31: MA.estimates(rdsdat, trait.variable = "y", N = 100, verbose = FALSE,
     number.of.coupons = 1)
     where 7: eval(code, test_env)
     where 8: eval(code, test_env)
     where 9: 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 10: doTryCatch(return(expr), name, parentenv, handler)
     where 11: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     where 12: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
     where 13: doTryCatch(return(expr), name, parentenv, handler)
     where 14: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),
     names[nh], parentenv, handlers[[nh]])
     where 15: tryCatchList(expr, classes, parentenv, handlers)
     where 16: 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 17: test_code(desc, code, env = parent.frame())
     where 18 at testthat/test-estimators.R#30: test_that("rds-MA", {
     v <- MA.estimates(rdsdat, trait.variable = "y", N = 100,
     verbose = FALSE, number.of.coupons = 1)
     expect_true(v$estimate[1] > 0.26 && v$estimate[1] < 0.38)
     v <- MA.estimates(rdsdat, trait.variable = "z", N = 100,
     verbose = FALSE, number.of.coupons = 1)
     expect_true(v$estimate[1] < 0.05)
     expect_warning(v <- MA.estimates(rdsdat, trait.variable = "m",
     N = 100, verbose = FALSE, number.of.coupons = 1))
     expect_true(v$estimate[1] > 0.8)
     })
     where 19: eval(code, test_env)
     where 20: eval(code, test_env)
     where 21: 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 22: doTryCatch(return(expr), name, parentenv, handler)
     where 23: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     where 24: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
     where 25: doTryCatch(return(expr), name, parentenv, handler)
     where 26: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),
     names[nh], parentenv, handlers[[nh]])
     where 27: tryCatchList(expr, classes, parentenv, handlers)
     where 28: 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 29: test_code(NULL, exprs, env)
     where 30: source_file(path, new.env(parent = env), chdir = TRUE, wrap = wrap)
     where 31: force(code)
     where 32: doWithOneRestart(return(expr), restart)
     where 33: withOneRestart(expr, restarts[[1L]])
     where 34: withRestarts(testthat_abort_reporter = function() NULL, force(code))
     where 35: 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 36: FUN(X[[i]], ...)
     where 37: lapply(paths, test_file, env = env, reporter = current_reporter,
     start_end_reporter = FALSE, load_helpers = FALSE, wrap = wrap)
     where 38: force(code)
     where 39: doWithOneRestart(return(expr), restart)
     where 40: withOneRestart(expr, restarts[[1L]])
     where 41: withRestarts(testthat_abort_reporter = function() NULL, force(code))
     where 42: 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 43: test_files(paths, reporter = reporter, env = env, stop_on_failure = stop_on_failure,
     stop_on_warning = stop_on_warning, wrap = wrap)
     where 44: 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 45: 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 46: test_check("RDS")
    
     --- value of length: 2 type: logical ---
     [1] FALSE FALSE
     --- function from context ---
     function (x, na.rm = FALSE, edge.check = FALSE)
     {
     if (class(x) == "network") {
     return(x)
     }
     if (is.null(attr(x, "vnames"))) {
     warning("as.network.uncompressed.rds input must be a compressed network, or a network.\n Returning the original object.\n")
     return(x)
     }
     n <- attr(x, "n")
     directed <- attr(x, "directed")
     g <- network::network.initialize(n, directed = directed)
     g <- network::add.edges(g, as.list(x[, 1]), as.list(x[, 2]),
     edge.check = edge.check)
     va <- attr(x, "vertex.attributes")
     if (length(va) > 0) {
     for (i in (1:length(va))) {
     g <- network::set.vertex.attribute(g, names(va)[i],
     va[[i]])
     }
     }
     g
     }
     <bytecode: 0x721e518>
     <environment: namespace:RDS>
     --- function search by body ---
     Function as.network.uncompressed.rds in namespace RDS has this body.
     ----------- END OF FAILURE REPORT --------------
     -- 1. Error: rds-MA (@test-estimators.R#31) -----------------------------------
     the condition has length > 1
     Backtrace:
     1. RDS::MA.estimates(...)
     2. RDS:::getnetest(...)
     3. RDS:::oneiteration(...)
     4. RDS:::getsamples.RDS.C(...)
     5. RDS:::sfn(j, data)
     6. RDS:::as.network.uncompressed.rds(data$sim[[1]])
    
     == testthat results ===========================================================
     [ OK: 24 | SKIPPED: 0 | WARNINGS: 1 | FAILED: 1 ]
     1. Error: rds-MA (@test-estimators.R#31)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-devel-linux-x86_64-debian-clang

Version: 0.9-0
Check: tests
Result: ERROR
     Running ‘tests.R’ [8s/8s]
    Running the tests in ‘tests/tests.R’ failed.
    Last 13 lines of output:
     Backtrace:
     1. RDS::MA.estimates(...)
     2. RDS:::getnetest(...)
     3. RDS:::oneiteration(...)
     4. RDS:::fitnet.RDS(...)
     10. ergm:::InitErgmTerm.nodemix(...)
     11. ergm::check.ErgmTerm(...)
     12. ergm::ergm_Init_abort(...)
    
     ══ testthat results ═══════════════════════════════════════════════════════════
     [ OK: 24 | SKIPPED: 0 | WARNINGS: 0 | FAILED: 1 ]
     1. Error: rds-MA (@test-estimators.R#31)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-oldrel-osx-x86_64