Running ‘testthat.R’ [7s/22s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > # NOTE: This will not test an uninstalled package.
  > library(testthat)
  > test_check('ifaTools')
  Loading required package: ifaTools
  Loading required package: shiny
  Loading required package: ggplot2
  Loading required package: reshape2
  Loading required package: rpf
  Loading required package: parallel
  Loading required package: OpenMx
  Loading required package: digest
  Loading required package: MASS
  Loading required package: Matrix
  Loading required package: Rcpp
  To take full advantage of multiple cores, use:
    mxOption(NULL, 'Number of Threads', parallel::detectCores())
  
  Attaching package: 'OpenMx'
  
  The following objects are masked from 'package:Matrix':
  
      %&%, expm
  
  
   *** caught segfault ***
  address 0, cause 'memory not mapped'
  
  Traceback:
   1: .Call(backend, constraints, matrices, parameters, algebras, expectations,     computes, data, intervalList, communication, options, defVars,     PACKAGE = "OpenMx")
   2: runHelper(model, frontendStart, intervals, silent, suppressWarnings,     unsafe, checkpoint, useSocket, onlyFrontend, useOptimizer)
   3: mxRun(mxModel(m1, mxComputeSequence(list(mxComputeNumericDeriv(checkGradient = FALSE),     mxComputeReportDeriv()))), silent = TRUE)
   4: checkAnalyticDeriv(omxAssignFirstParameters(m1))
   5: eval(expr, envir, enclos)
   6: eval(code, test_env)
   7: withCallingHandlers(eval(code, test_env), expectation = handle_expectation,     skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  11: doTryCatch(return(expr), name, parentenv, handler)
  12: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  13: tryCatchList(expr, classes, parentenv, handlers)
  14: tryCatch(withCallingHandlers(eval(code, test_env), expectation = handle_expectation,     skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error), error = function(e) {}, skip = function(e) {})
  15: test_code(desc, code, env = parent.frame())
  16: test_that("uniquenessPrior", {    imat <- mxMatrix(name = "item", nrow = 3, ncol = 3, values = 1:9,         free = TRUE, labels = paste("l", 1:9, sep = ""))    imat$labels[1, 2] <- "l1"    imat$free[2, 2] <- FALSE    imat$free[3, ] <- FALSE    spec <- list()    spec[1:3] <- rpf.grm(factors = 2)    m1 <- mxModel("test", imat, mxExpectationBA81(spec))    m1 <- mxModel(m1, uniquenessPrior(m1, 2), mxFitFunctionMultigroup(c("uniquenessPrior")))    m1$expectation <- NULL    checkAnalyticDeriv(omxAssignFirstParameters(m1))})
  17: eval(expr, envir, enclos)
  18: eval(exprs, env)
  19: source_file(path, new.env(parent = env), chdir = TRUE)
  20: force(code)
  21: with_reporter(reporter = reporter, start_end_reporter = start_end_reporter,     {        lister$start_file(basename(path))        source_file(path, new.env(parent = env), chdir = TRUE)        end_context()    })
  22: FUN(X[[i]], ...)
  23: lapply(paths, test_file, env = env, reporter = current_reporter,     start_end_reporter = FALSE, load_helpers = FALSE)
  24: force(code)
  25: with_reporter(reporter = current_reporter, results <- lapply(paths,     test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE,     load_helpers = FALSE))
  26: test_files(paths, reporter = reporter, env = env, ...)
  27: test_dir(test_path, reporter = reporter, env = env, filter = filter,     ...)
  28: with_top_env(env, {    test_dir(test_path, reporter = reporter, env = env, filter = filter,         ...)})
  29: run_tests(package, test_path, filter, reporter, ...)
  30: test_check("ifaTools")
  An irrecoverable exception occurred. R is aborting now ...