CRAN Package Check Results for Package dqshiny

Last updated on 2020-06-30 05:47:50 CEST.

Check Details

Version: 0.0.4
Check: tests
Result: ERROR
     Running ‘testthat.R’ [7s/10s]
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     > library(dqshiny)
    
     Attaching package: 'dqshiny'
    
     The following object is masked from 'package:methods':
    
     show
    
     >
     > test_check('dqshiny')
    
     *** caught segfault ***
     address 0x31, cause 'memory not mapped'
    
     Traceback:
     1: context_eval(join(src), private$context, serialize)
     2: get_str_output(context_eval(join(src), private$context, serialize))
     3: evaluate_js(src, serialize = serialize)
     4: ct$eval(code)
     5: doTryCatch(return(expr), name, parentenv, handler)
     6: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     7: tryCatchList(expr, classes, parentenv, handlers)
     8: tryCatch({ if (!is.null(code)) { ct$eval(code) } else { warning("Nothing to parse here!") }}, error = function(e) { stop(paste("Error found while parsing your JS code:", e$message))})
     9: parse_code(code)
     10: add_js(NULL, "}")
     11: eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
     12: withCallingHandlers({ code NULL}, error = function(cnd) { if (can_entrace(cnd)) { cnd <- cnd_entrace(cnd) } return_from(env, cnd)})
     13: .capture(act$val <- eval_bare(quo_get_expr(.quo), quo_get_env(.quo)), ...)
     14: quasi_capture(enquo(object), label, capture_error, entrace = TRUE)
     15: expect_error(add_js(NULL, "}"), "Error")
     16: eval(code, test_env)
     17: eval(code, test_env)
     18: 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)
     19: doTryCatch(return(expr), name, parentenv, handler)
     20: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     21: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
     22: doTryCatch(return(expr), name, parentenv, handler)
     23: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], parentenv, handlers[[nh]])
     24: tryCatchList(expr, classes, parentenv, handlers)
     25: 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) { })
     26: test_code(desc, code, env = parent.frame())
     27: test_that("add_js works with any input", { if (requireNamespace("V8", quietly = TRUE)) { expect_error(add_js(NULL, "}"), "Error") expect_error(add_js(NULL, "function_text"), "ReferenceError") expect_error(add_js("type", "}"), "Error") expect_silent(add_js("type", "function(params) {\n alert('Result is: ' + (parseInt(params[0]) + parseInt(params[1])));\n }")) } else { expect_warning(add_js(NULL, NULL), "V8 package") expect_warning(add_js(NULL, "function_text"), "V8 package") expect_warning(add_js("type", NULL), "V8 package") expect_warning(add_js("type", "function(params) {\n alert('Result is: ' + (parseInt(params[0]) + parseInt(params[1])));\n }"), "V8 package") }})
     28: eval(code, test_env)
     29: eval(code, test_env)
     30: 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)
     31: doTryCatch(return(expr), name, parentenv, handler)
     32: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     33: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
     34: doTryCatch(return(expr), name, parentenv, handler)
     35: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], parentenv, handlers[[nh]])
     36: tryCatchList(expr, classes, parentenv, handlers)
     37: 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) { })
     38: test_code(NULL, exprs, env)
     39: source_file(path, new.env(parent = env), chdir = TRUE, wrap = wrap)
     40: force(code)
     41: doWithOneRestart(return(expr), restart)
     42: withOneRestart(expr, restarts[[1L]])
     43: withRestarts(testthat_abort_reporter = function() NULL, force(code))
     44: 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() })
     45: FUN(X[[i]], ...)
     46: lapply(paths, test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE, load_helpers = FALSE, wrap = wrap)
     47: force(code)
     48: doWithOneRestart(return(expr), restart)
     49: withOneRestart(expr, restarts[[1L]])
     50: withRestarts(testthat_abort_reporter = function() NULL, force(code))
     51: with_reporter(reporter = current_reporter, results <- lapply(paths, test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE, load_helpers = FALSE, wrap = wrap))
     52: test_files(paths, reporter = reporter, env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, wrap = wrap)
     53: 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)
     54: 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)
     55: test_check("dqshiny")
     An irrecoverable exception occurred. R is aborting now ...
Flavor: r-devel-linux-x86_64-fedora-clang