Running ‘testthat.R’ [21s/56s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(fcaR)
  > 
  > test_check("fcaR")
  An empty set of concepts.
  \begin{longtable}{lll}
  1: &$\left(\,\ensuremath{\{O1,\, O2,\, O3,\, O4,\, O5,\, O6\}},\right.$&$\left.\ensuremath{\varnothing}\,\right)$\\
  2: &$\left(\,\ensuremath{\{O1,\, O4,\, O5\}},\right.$&$\left.\ensuremath{\{{^{0.5}}\!/P4\}}\,\right)$\\
  3: &$\left(\,\ensuremath{\{O1,\, O4\}},\right.$&$\left.\ensuremath{\{{^{0.5}}\!/P4,\, {^{0.5}}\!/P5\}}\,\right)$\\
  4: &$\left(\,\ensuremath{\{O1,\, {^{0.5}}\!/O4\}},\right.$&$\left.\ensuremath{\{{^{0.5}}\!/P4,\, P5\}}\,\right)$\\
  5: &$\left(\,\ensuremath{\{{^{0.5}}\!/O1,\, O4,\, {^{0.5}}\!/O5\}},\right.$&$\left.\ensuremath{\{P4\}}\,\right)$\\
  6: &$\left(\,\ensuremath{\{{^{0.5}}\!/O1,\, O4\}},\right.$&$\left.\ensuremath{\{P4,\, {^{0.5}}\!/P5\}}\,\right)$\\
  7: &$\left(\,\ensuremath{\{{^{0.5}}\!/O1,\, {^{0.5}}\!/O4\}},\right.$&$\left.\ensuremath{\{P4,\, P5\}}\,\right)$\\
  8: &$\left(\,\ensuremath{\{O1,\, O2,\, O5\}},\right.$&$\left.\ensuremath{\{{^{0.5}}\!/P3\}}\,\right)$\\
  9: &$\left(\,\ensuremath{\{O1,\, O5\}},\right.$&$\left.\ensuremath{\{{^{0.5}}\!/P3,\, {^{0.5}}\!/P4\}}\,\right)$\\
  10: &$\left(\,\ensuremath{\{O1\}},\right.$&$\left.\ensuremath{\{{^{0.5}}\!/P3,\, {^{0.5}}\!/P4,\, P5\}}\,\right)$\\
  11: &$\left(\,\ensuremath{\{{^{0.5}}\!/O1,\, O2,\, O5\}},\right.$&$\left.\ensuremath{\{P3\}}\,\right)$\\
  12: &$\left(\,\ensuremath{\{{^{0.5}}\!/O1,\, O5\}},\right.$&$\left.\ensuremath{\{P3,\, {^{0.5}}\!/P4\}}\,\right)$\\
  13: &$\left(\,\ensuremath{\{{^{0.5}}\!/O1,\, {^{0.5}}\!/O5\}},\right.$&$\left.\ensuremath{\{P3,\, P4\}}\,\right)$\\
  14: &$\left(\,\ensuremath{\{{^{0.5}}\!/O1\}},\right.$&$\left.\ensuremath{\{P3,\, P4,\, P5\}}\,\right)$\\
  15: &$\left(\,\ensuremath{\{O2,\, O3,\, O6\}},\right.$&$\left.\ensuremath{\{{^{0.5}}\!/P1,\, {^{0.5}}\!/P2\}}\,\right)$\\
  16: &$\left(\,\ensuremath{\{O3,\, O6\}},\right.$&$\left.\ensuremath{\{{^{0.5}}\!/P1,\, {^{0.5}}\!/P2,\, P6\}}\,\right)$\\
  17: &$\left(\,\ensuremath{\{O2,\, {^{0.5}}\!/O3,\, {^{0.5}}\!/O6\}},\right.$&$\left.\ensuremath{\{P1,\, P2\}}\,\right)$\\
  18: &$\left(\,\ensuremath{\{{^{0.5}}\!/O3,\, {^{0.5}}\!/O6\}},\right.$&$\left.\ensuremath{\{P1,\, P2,\, P6\}}\,\right)$\\
  19: &$\left(\,\ensuremath{\{O2\}},\right.$&$\left.\ensuremath{\{P1,\, P2,\, P3\}}\,\right)$\\
  20: &$\left(\,\ensuremath{\varnothing},\right.$&$\left.\ensuremath{\{P1,\, P2,\, P3,\, P4,\, P5,\, P6\}}\,\right)$\\
  \end{longtable}\begin{longtable}{l}
  $\left(\,\ensuremath{\{O1,\, O2,\, O3,\, O4,\, O5,\, O6\}},\right.$\,$\left.\ensuremath{\varnothing}\,\right)$\\
  $\left(\,\ensuremath{\{O1,\, O4,\, O5\}},\right.$\,$\left.\ensuremath{\{{^{0.5}}\!/P4\}}\,\right)$\\
  $\left(\,\ensuremath{\{O1,\, O4\}},\right.$\,$\left.\ensuremath{\{{^{0.5}}\!/P4,\, {^{0.5}}\!/P5\}}\,\right)$\\
  $\left(\,\ensuremath{\{O1,\, {^{0.5}}\!/O4\}},\right.$\,$\left.\ensuremath{\{{^{0.5}}\!/P4,\, P5\}}\,\right)$\\
  $\left(\,\ensuremath{\{{^{0.5}}\!/O1,\, O4,\, {^{0.5}}\!/O5\}},\right.$\,$\left.\ensuremath{\{P4\}}\,\right)$\\
  $\left(\,\ensuremath{\{{^{0.5}}\!/O1,\, O4\}},\right.$\,$\left.\ensuremath{\{P4,\, {^{0.5}}\!/P5\}}\,\right)$\\
  $\left(\,\ensuremath{\{{^{0.5}}\!/O1,\, {^{0.5}}\!/O4\}},\right.$\,$\left.\ensuremath{\{P4,\, P5\}}\,\right)$\\
  $\left(\,\ensuremath{\{O1,\, O2,\, O5\}},\right.$\,$\left.\ensuremath{\{{^{0.5}}\!/P3\}}\,\right)$\\
  $\left(\,\ensuremath{\{O1,\, O5\}},\right.$\,$\left.\ensuremath{\{{^{0.5}}\!/P3,\, {^{0.5}}\!/P4\}}\,\right)$\\
  $\left(\,\ensuremath{\{O1\}},\right.$\,$\left.\ensuremath{\{{^{0.5}}\!/P3,\, {^{0.5}}\!/P4,\, P5\}}\,\right)$\\
  $\left(\,\ensuremath{\{{^{0.5}}\!/O1,\, O2,\, O5\}},\right.$\,$\left.\ensuremath{\{P3\}}\,\right)$\\
  $\left(\,\ensuremath{\{{^{0.5}}\!/O1,\, O5\}},\right.$\,$\left.\ensuremath{\{P3,\, {^{0.5}}\!/P4\}}\,\right)$\\
  $\left(\,\ensuremath{\{{^{0.5}}\!/O1,\, {^{0.5}}\!/O5\}},\right.$\,$\left.\ensuremath{\{P3,\, P4\}}\,\right)$\\
  $\left(\,\ensuremath{\{{^{0.5}}\!/O1\}},\right.$\,$\left.\ensuremath{\{P3,\, P4,\, P5\}}\,\right)$\\
  $\left(\,\ensuremath{\{O2,\, O3,\, O6\}},\right.$\,$\left.\ensuremath{\{{^{0.5}}\!/P1,\, {^{0.5}}\!/P2\}}\,\right)$\\
  $\left(\,\ensuremath{\{O3,\, O6\}},\right.$\,$\left.\ensuremath{\{{^{0.5}}\!/P1,\, {^{0.5}}\!/P2,\, P6\}}\,\right)$\\
  $\left(\,\ensuremath{\{O2,\, {^{0.5}}\!/O3,\, {^{0.5}}\!/O6\}},\right.$\,$\left.\ensuremath{\{P1,\, P2\}}\,\right)$\\
  $\left(\,\ensuremath{\{{^{0.5}}\!/O3,\, {^{0.5}}\!/O6\}},\right.$\,$\left.\ensuremath{\{P1,\, P2,\, P6\}}\,\right)$\\
  $\left(\,\ensuremath{\{O2\}},\right.$\,$\left.\ensuremath{\{P1,\, P2,\, P3\}}\,\right)$\\
  $\left(\,\ensuremath{\varnothing},\right.$\,$\left.\ensuremath{\{P1,\, P2,\, P3,\, P4,\, P5,\, P6\}}\,\right)$\\
  \end{longtable}\begin{longtable}{llllll}
  1: &$\left(\,\ensuremath{\{O1,\, O2,\, O3,\, O4,\, O5,\, O6\}},\right.$&$\left.\ensuremath{\varnothing}\,\right)$ & 11: &$\left(\,\ensuremath{\{{^{0.5}}\!/O1,\, O2,\, O5\}},\right.$&$\left.\ensuremath{\{P3\}}\,\right)$\\
  2: &$\left(\,\ensuremath{\{O1,\, O4,\, O5\}},\right.$&$\left.\ensuremath{\{{^{0.5}}\!/P4\}}\,\right)$ & 12: &$\left(\,\ensuremath{\{{^{0.5}}\!/O1,\, O5\}},\right.$&$\left.\ensuremath{\{P3,\, {^{0.5}}\!/P4\}}\,\right)$\\
  3: &$\left(\,\ensuremath{\{O1,\, O4\}},\right.$&$\left.\ensuremath{\{{^{0.5}}\!/P4,\, {^{0.5}}\!/P5\}}\,\right)$ & 13: &$\left(\,\ensuremath{\{{^{0.5}}\!/O1,\, {^{0.5}}\!/O5\}},\right.$&$\left.\ensuremath{\{P3,\, P4\}}\,\right)$\\
  4: &$\left(\,\ensuremath{\{O1,\, {^{0.5}}\!/O4\}},\right.$&$\left.\ensuremath{\{{^{0.5}}\!/P4,\, P5\}}\,\right)$ & 14: &$\left(\,\ensuremath{\{{^{0.5}}\!/O1\}},\right.$&$\left.\ensuremath{\{P3,\, P4,\, P5\}}\,\right)$\\
  5: &$\left(\,\ensuremath{\{{^{0.5}}\!/O1,\, O4,\, {^{0.5}}\!/O5\}},\right.$&$\left.\ensuremath{\{P4\}}\,\right)$ & 15: &$\left(\,\ensuremath{\{O2,\, O3,\, O6\}},\right.$&$\left.\ensuremath{\{{^{0.5}}\!/P1,\, {^{0.5}}\!/P2\}}\,\right)$\\
  6: &$\left(\,\ensuremath{\{{^{0.5}}\!/O1,\, O4\}},\right.$&$\left.\ensuremath{\{P4,\, {^{0.5}}\!/P5\}}\,\right)$ & 16: &$\left(\,\ensuremath{\{O3,\, O6\}},\right.$&$\left.\ensuremath{\{{^{0.5}}\!/P1,\, {^{0.5}}\!/P2,\, P6\}}\,\right)$\\
  7: &$\left(\,\ensuremath{\{{^{0.5}}\!/O1,\, {^{0.5}}\!/O4\}},\right.$&$\left.\ensuremath{\{P4,\, P5\}}\,\right)$ & 17: &$\left(\,\ensuremath{\{O2,\, {^{0.5}}\!/O3,\, {^{0.5}}\!/O6\}},\right.$&$\left.\ensuremath{\{P1,\, P2\}}\,\right)$\\
  8: &$\left(\,\ensuremath{\{O1,\, O2,\, O5\}},\right.$&$\left.\ensuremath{\{{^{0.5}}\!/P3\}}\,\right)$ & 18: &$\left(\,\ensuremath{\{{^{0.5}}\!/O3,\, {^{0.5}}\!/O6\}},\right.$&$\left.\ensuremath{\{P1,\, P2,\, P6\}}\,\right)$\\
  9: &$\left(\,\ensuremath{\{O1,\, O5\}},\right.$&$\left.\ensuremath{\{{^{0.5}}\!/P3,\, {^{0.5}}\!/P4\}}\,\right)$ & 19: &$\left(\,\ensuremath{\{O2\}},\right.$&$\left.\ensuremath{\{P1,\, P2,\, P3\}}\,\right)$\\
  10: &$\left(\,\ensuremath{\{O1\}},\right.$&$\left.\ensuremath{\{{^{0.5}}\!/P3,\, {^{0.5}}\!/P4,\, P5\}}\,\right)$ & 20: &$\left(\,\ensuremath{\varnothing},\right.$&$\left.\ensuremath{\{P1,\, P2,\, P3,\, P4,\, P5,\, P6\}}\,\right)$\\
  \end{longtable}(\ensuremath{\{O1,\, O4,\, O5\}}, \ensuremath{\{{^{0.5}}\!/P4\}})
  \begin{longtable}{ll}
  $\left(\,\ensuremath{\{O1,\, O2,\, O3,\, O4,\, O5,\, O6\}},\right.$&$\left.\ensuremath{\varnothing}\,\right)$\\
  $\left(\,\ensuremath{\{O1,\, O4,\, O5\}},\right.$&$\left.\ensuremath{\{{^{0.5}}\!/P4\}}\,\right)$\\
  $\left(\,\ensuremath{\{O1,\, O4\}},\right.$&$\left.\ensuremath{\{{^{0.5}}\!/P4,\, {^{0.5}}\!/P5\}}\,\right)$\\
  \end{longtable}Apriori
  
  Parameter specification:
   confidence minval smax arem  aval originalSupport maxtime support minlen
            1    0.1    1 none FALSE            TRUE       5     0.1      1
   maxlen target   ext
        4  rules FALSE
  
  Algorithmic control:
   filter tree heap memopt load sort verbose
      0.1 TRUE TRUE  FALSE TRUE    2    TRUE
  
  Absolute minimum support count: 812 
  
  set item appearances ...[0 item(s)] done [0.00s].
  set transactions ...[114 item(s), 8124 transaction(s)] done [0.03s].
  sorting and recoding items ... [53 item(s)] done [0.01s].
  creating transaction tree ... done [0.01s].
  checking subsets of size 1 2 3 4 done [0.47s].
  writing ... [20219 rule(s)] done [0.01s].
  creating S4 object  ... done [0.01s].
  Added concept:
  {}
  Completed = 50.00
   Added concept:
  {P4 [0.5]}
  Added concept:
  {P4 [0.5], P5 [0.5]}
  Added concept:
  {P4 [0.5], P5}
  Added concept:
  {P4}
  Added concept:
  {P4, P5 [0.5]}
  Added concept:
  {P4, P5}
  Completed = 66.00
   Added concept:
  {P3 [0.5]}
  Added concept:
  {P3 [0.5], P4 [0.5]}
  Added concept:
  {P3}
  Added concept:
  {P3, P4 [0.5]}
  Added concept:
  {P3, P4}
  Completed = 83.00
   Added concept:
  {P2 [0.5]}
  Added concept:
  {P2}
  Added concept:
  {P2, P3 [0.5]}
  Added concept:
  {P2, P3 [0.5], P4 [0.5], P5}
  Added concept:
  {P2, P3}
  Added concept:
  {P2, P3, P4, P5}
  Completed = 100.00
   Added concept:
  {P1 [0.5]}
  Added concept:
  {P1 [0.5], P2 [0.5]}
  Added concept:
  {P1 [0.5], P2 [0.5], P6}
  Added concept:
  {P1}
  Added concept:
  {P1, P2}
  Added concept:
  {P1, P2, P6}
  Added concept:
  {P1, P2, P3}
  Added concept:
  {P1, P2, P3, P4, P5, P6}
  Finished.
  Added concept:
  {}
  Completed = 50.00
   Added concept:
  {P4 [0.5]}
  Added concept:
  {P4 [0.5], P5 [0.5]}
  Added concept:
  {P4 [0.5], P5}
  Added concept:
  {P4}
  Added concept:
  {P4, P5 [0.5]}
  Added concept:
  {P4, P5}
  Completed = 66.00
   Added concept:
  {P3 [0.5]}
  Added concept:
  {P3 [0.5], P4 [0.5]}
  Added concept:
  {P3}
  Added concept:
  {P3, P4 [0.5]}
  Added concept:
  {P3, P4}
  Completed = 83.00
   Added concept:
  {P2 [0.5]}
  Added concept:
  {P2}
  Added concept:
  {P2, P3 [0.5]}
  Added concept:
  {P2, P3 [0.5], P4 [0.5], P5}
  Added concept:
  {P2, P3}
  Added concept:
  {P2, P3, P4, P5}
  Completed = 100.00
   Added concept:
  {P1 [0.5]}
  Added concept:
  {P1 [0.5], P2 [0.5]}
  Added concept:
  {P1 [0.5], P2 [0.5], P6}
  Added concept:
  {P1}
  Added concept:
  {P1, P2}
  Added concept:
  {P1, P2, P6}
  Added concept:
  {P1, P2, P3}
  Added concept:
  {P1, P2, P3, P4, P5, P6}
  Finished.
  Added concept:
  {}
  Completed = 16.00
   Added implication 0 to basis
  
  
  {P6 [0.5]} -> {P1 [0.5], P2 [0.5], P6}
  Completed = 33.00
   Added implication 1 to basis
  
  
  {P5 [0.5]} -> {P4 [0.5]}
  Completed = 50.00
   Added concept:
  {P4 [0.5]}
  Added concept:
  {P4 [0.5], P5 [0.5]}
  Added concept:
  {P4 [0.5], P5}
  Added concept:
  {P4}
  Added concept:
  {P4, P5 [0.5]}
  Added concept:
  {P4, P5}
  Completed = 66.00
   Added concept:
  {P3 [0.5]}
  Added concept:
  {P3 [0.5], P4 [0.5]}
  Added implication 2 to basis
  
  
  {P3 [0.5], P4 [0.5], P5 [0.5]} -> {P2, P5}
  Added implication 3 to basis
  
  
  {P3 [0.5], P4} -> {P3}
  Added concept:
  {P3}
  Added concept:
  {P3, P4 [0.5]}
  Completed = 83.00
   Added concept:
  {P2 [0.5]}
  Added implication 4 to basis
  
  
  {P2 [0.5], P4 [0.5]} -> {P2, P3 [0.5], P5}
  Added implication 5 to basis
  
  
  {P2 [0.5], P3 [0.5]} -> {P2}
  Added concept:
  {P2}
  Added concept:
  {P2, P3 [0.5]}
  Added concept:
  {P2, P3 [0.5], P4 [0.5], P5}
  Added concept:
  {P2, P3}
  Added implication 6 to basis
  
  
  {P2, P3, P4 [0.5], P5} -> {P4}
  Added concept:
  {P2, P3, P4, P5}
  Completed = 100.00
   Added concept:
  {P1 [0.5]}
  Added implication 7 to basis
  
  
  {P1 [0.5], P4 [0.5]} -> {P1, P2, P3, P4, P5, P6}
  Added implication 8 to basis
  
  
  {P1 [0.5], P3 [0.5]} -> {P1, P2, P3}
  Added concept:
  {P1 [0.5], P2 [0.5]}
  Added concept:
  {P1 [0.5], P2 [0.5], P6}
  Added implication 9 to basis
  
  
  {P1 [0.5], P2} -> {P1}
  10
  Added concept:
  {P1}
  Added implication 10 to basis
  
  
  {P1, P2 [0.5]} -> {P2}
  Added concept:
  {P1, P2}
  Added concept:
  {P1, P2, P6}
  Added concept:
  {P1, P2, P3}
  Added implication 11 to basis
  
  
  {P1, P2, P3, P6} -> {P4, P5}
  Added concept:
  {P1, P2, P3, P4, P5, P6}
  Finished.
  FormalContext with 10 objects and 10 attributes.
  Attributes' names are: A1, A2, A3, A4, A5, A6, ...
  Matrix:
       [,1] [,2] [,3] [,4] [,5] [,6] [,7]
  [1,]    1    0    0    0    1    1    1
  [2,]    0    0    1    0    1    0    1
  [3,]    1    0    1    1    1    0    1
  [4,]    0    0    0    1    1    1    1
  [5,]    1    1    0    0    1    1    0
  [6,]    1    0    0    1    0    1    1
  
   *** caught segfault ***
  address 0, cause 'memory not mapped'
  
  Traceback:
   1: next_closure_implications(I = my_I, grades_set = grades_set,     attrs = attrs, verbose = verbose)
   2: fc$find_implications()
   3: eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   4: withCallingHandlers({    code    NULL}, error = function(cnd) {    if (can_entrace(cnd)) {        cnd <- cnd_entrace(cnd)    }    return_from(env, cnd)})
   5: .capture(act$val <- eval_bare(quo_get_expr(.quo), quo_get_env(.quo)),     ...)
   6: quasi_capture(enquo(object), label, capture_error, entrace = TRUE)
   7: expect_error(fc$find_implications(), NA)
   8: eval(code, test_env)
   9: eval(code, test_env)
  10: 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)
  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)    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) {    })
  18: test_code(desc, code, env = parent.frame())
  19: test_that("fcaR computes the standard context", {    objects <- paste0("O", 1:6)    n_objects <- length(objects)    attributes <- paste0("P", 1:6)    n_attributes <- length(attributes)    I <- matrix(data = c(0, 1, 0.5, 0, 0, 0.5, 0, 1, 0.5, 0,         0, 0.5, 0.5, 1, 0, 0, 1, 0, 0.5, 0, 0, 1, 0.5, 0, 1,         0, 0, 0.5, 0, 0, 0, 0, 1, 0, 0, 1), nrow = n_objects,         byrow = FALSE)    colnames(I) <- attributes    rownames(I) <- objects    fc <- FormalContext$new(I)    expect_error(fc2 <- fc$standardize())    expect_error(fc$find_implications(), NA)    expect_error(fc2 <- fc$standardize(), NA)    expect_is(fc2, "FormalContext")    expect_error(fc2$find_implications(), NA)    expect_equal(fc$concepts$size(), fc2$concepts$size())})
  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(NULL, exprs, env)
  31: source_file(path, new.env(parent = env), chdir = TRUE, wrap = wrap)
  32: force(code)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(testthat_abort_reporter = function() NULL, force(code))
  36: 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()    })
  37: FUN(X[[i]], ...)
  38: lapply(paths, test_file, env = env, reporter = current_reporter,     start_end_reporter = FALSE, load_helpers = FALSE, wrap = wrap)
  39: force(code)
  40: doWithOneRestart(return(expr), restart)
  41: withOneRestart(expr, restarts[[1L]])
  42: withRestarts(testthat_abort_reporter = function() NULL, force(code))
  43: with_reporter(reporter = current_reporter, results <- lapply(paths,     test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE,     load_helpers = FALSE, wrap = wrap))
  44: test_files(paths, reporter = reporter, env = env, stop_on_failure = stop_on_failure,     stop_on_warning = stop_on_warning, wrap = wrap)
  45: 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)
  46: 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)
  47: test_check("fcaR")
  An irrecoverable exception occurred. R is aborting now ...