Running ‘test-all.R’ [22s/30s]
Running the tests in ‘tests/test-all.R’ failed.
Complete output:
  > library(testthat)
  > test_check("walkr")
  Loading required package: walkr
  Loading required package: ggplot2
  
   *** caught segfault ***
  address ffc488d0, cause 'memory not mapped'
  
  Traceback:
   1: .Fortran("lsei", NUnknowns = Nx, NEquations = Neq, NConstraints = Nin,     NApproximate = Napp, A = A, B = B, E = E, F = F, G = G, H = H,     X = as.vector(rep(0, Nx)), mIP = as.integer(mIP), mdW = as.integer(mdW),     mWS = as.integer(mWS), IP = as.integer(rep(0, mIP)), W = as.double(matrix(data = 0,         nrow = mdW, ncol = Nx + 1)), WS = as.double(rep(0, mWS)),     lpr = as.integer(lpr), ProgOpt = as.double(ProgOpt), verbose = as.logical(verbose),     IsError = as.logical(IsError))
   2: limSolve::lsei(A = objfunc, B = const, E = A, F = b)
   3: doTryCatch(return(expr), name, parentenv, handler)
   4: tryCatchOne(expr, names, parentenv, handlers[[1L]])
   5: tryCatchList(expr, classes, parentenv, handlers)
   6: tryCatch(limSolve::lsei(A = objfunc, B = const, E = A, F = b)[[1]],     warning = function(c) "not solvable")
   7: walkr:::complete_solution(A, b)
   8: eval(expr, envir, enclos)
   9: eval(code, test_env)
  10: withCallingHandlers(eval(code, test_env), expectation = handle_expectation,     skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error)
  11: doTryCatch(return(expr), name, parentenv, handler)
  12: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  13: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  14: doTryCatch(return(expr), name, parentenv, handler)
  15: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  16: tryCatchList(expr, classes, parentenv, handlers)
  17: 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) {})
  18: test_code(desc, code, env = parent.frame())
  19: test_that("Affine Transformation", {    set.seed(314)    n <- 20    A <- matrix(rep(1, n), ncol = n, nrow = 1)    A <- rbind(A, sample(c(1, 0), n, replace = T))    A <- rbind(A, sample(c(1, 0), n, replace = T))    A <- rbind(A, sample(c(1, 0), n, replace = T))    b <- c(1, 0.7, 0.2, 0.05)    z <- walkr:::complete_solution(A, b)    expect_true(all((A %*% (z[[1]] + 575 * z[[2]][, 1] + 300 *         z[[2]][, 2])) - b <= 1e-05))})
  20: eval(expr, envir, enclos)
  21: eval(exprs, env)
  22: source_file(path, new.env(parent = env), chdir = TRUE)
  23: force(code)
  24: 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()    })
  25: FUN(X[[i]], ...)
  26: lapply(paths, test_file, env = env, reporter = current_reporter,     start_end_reporter = FALSE, load_helpers = FALSE)
  27: force(code)
  28: with_reporter(reporter = current_reporter, results <- lapply(paths,     test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE,     load_helpers = FALSE))
  29: test_files(paths, reporter = reporter, env = env, ...)
  30: test_dir(test_path, reporter = reporter, env = env, filter = filter,     ...)
  31: with_top_env(env, {    test_dir(test_path, reporter = reporter, env = env, filter = filter,         ...)})
  32: run_tests(package, test_path, filter, reporter, ...)
  33: test_check("walkr")
  An irrecoverable exception occurred. R is aborting now ...