Running ‘testthat.R’ [45s/52s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(msde)
  > 
  > Sys.unsetenv("R_TESTS")
  > test_check("msde")
  ── 1. Error: drift.R == drift.cpp  ─────────────────────────────────────────────
  the argument has already been evaluated
  1: sapply(mxd, expect_equal, expected = 0)
  2: lapply(X = X, FUN = FUN, ...)
  3: FUN(X[[i]], ...)
  4: quasi_label(enquo(object), label)
  5: force(quo)
  6: enquo(object)
  7: eval_bare(capture, caller_env())
  8: (function (x, strict = TRUE) 
     {
         caller_env <- parent.frame()
         if (identical(caller_env, globalenv())) {
             stop("must be called in a function")
         }
         if (missing(x)) {
             stop("argument \"x\" is missing")
         }
         .Call(rlang_capturearg, NULL, NULL, pairlist(caller_env, strict), get_env())
     })(object)
  
  ── 2. Error: diff.R == diff.cpp  ───────────────────────────────────────────────
  the argument has already been evaluated
  1: sapply(mxd, expect_equal, expected = 0)
  2: lapply(X = X, FUN = FUN, ...)
  3: FUN(X[[i]], ...)
  4: quasi_label(enquo(object), label)
  5: force(quo)
  6: enquo(object)
  7: eval_bare(capture, caller_env())
  8: (function (x, strict = TRUE) 
     {
         caller_env <- parent.frame()
         if (identical(caller_env, globalenv())) {
             stop("must be called in a function")
         }
         if (missing(x)) {
             stop("argument \"x\" is missing")
         }
         .Call(rlang_capturearg, NULL, NULL, pairlist(caller_env, strict), get_env())
     })(object)
  
  ── 3. Error: sim.R == sim.cpp  ─────────────────────────────────────────────────
  the argument has already been evaluated
  1: sapply(mxd, expect_equal, expected = 0)
  2: lapply(X = X, FUN = FUN, ...)
  3: FUN(X[[i]], ...)
  4: quasi_label(enquo(object), label)
  5: force(quo)
  6: enquo(object)
  7: eval_bare(capture, caller_env())
  8: (function (x, strict = TRUE) 
     {
         caller_env <- parent.frame()
         if (identical(caller_env, globalenv())) {
             stop("must be called in a function")
         }
         if (missing(x)) {
             stop("argument \"x\" is missing")
         }
         .Call(rlang_capturearg, NULL, NULL, pairlist(caller_env, strict), get_env())
     })(object)
  
  ── 4. Error: ll.R == ll.cpp  ───────────────────────────────────────────────────
  the argument has already been evaluated
  1: sapply(mxd, expect_equal, expected = 0)
  2: lapply(X = X, FUN = FUN, ...)
  3: FUN(X[[i]], ...)
  4: quasi_label(enquo(object), label)
  5: force(quo)
  6: enquo(object)
  7: eval_bare(capture, caller_env())
  8: (function (x, strict = TRUE) 
     {
         caller_env <- parent.frame()
         if (identical(caller_env, globalenv())) {
             stop("must be called in a function")
         }
         if (missing(x)) {
             stop("argument \"x\" is missing")
         }
         .Call(rlang_capturearg, NULL, NULL, pairlist(caller_env, strict), get_env())
     })(object)
  
  ── 5. Error: lpi.R == lpi.cpp  ─────────────────────────────────────────────────
  the argument has already been evaluated
  1: sapply(mxd[, 2], expect_equal, expected = 0)
  2: lapply(X = X, FUN = FUN, ...)
  3: FUN(X[[i]], ...)
  4: quasi_label(enquo(object), label)
  5: force(quo)
  6: enquo(object)
  7: eval_bare(capture, caller_env())
  8: (function (x, strict = TRUE) 
     {
         caller_env <- parent.frame()
         if (identical(caller_env, globalenv())) {
             stop("must be called in a function")
         }
         if (missing(x)) {
             stop("argument \"x\" is missing")
         }
         .Call(rlang_capturearg, NULL, NULL, pairlist(caller_env, strict), get_env())
     })(object)
  
  ── 6. Error: drift.R == drift.cpp  ─────────────────────────────────────────────
  the argument has already been evaluated
  1: sapply(mxd, expect_equal, expected = 0)
  2: lapply(X = X, FUN = FUN, ...)
  3: FUN(X[[i]], ...)
  4: quasi_label(enquo(object), label)
  5: force(quo)
  6: enquo(object)
  7: eval_bare(capture, caller_env())
  8: (function (x, strict = TRUE) 
     {
         caller_env <- parent.frame()
         if (identical(caller_env, globalenv())) {
             stop("must be called in a function")
         }
         if (missing(x)) {
             stop("argument \"x\" is missing")
         }
         .Call(rlang_capturearg, NULL, NULL, pairlist(caller_env, strict), get_env())
     })(object)
  
  ── 7. Error: diff.R == diff.cpp  ───────────────────────────────────────────────
  the argument has already been evaluated
  1: sapply(mxd, expect_equal, expected = 0)
  2: lapply(X = X, FUN = FUN, ...)
  3: FUN(X[[i]], ...)
  4: quasi_label(enquo(object), label)
  5: force(quo)
  6: enquo(object)
  7: eval_bare(capture, caller_env())
  8: (function (x, strict = TRUE) 
     {
         caller_env <- parent.frame()
         if (identical(caller_env, globalenv())) {
             stop("must be called in a function")
         }
         if (missing(x)) {
             stop("argument \"x\" is missing")
         }
         .Call(rlang_capturearg, NULL, NULL, pairlist(caller_env, strict), get_env())
     })(object)
  
  ── 8. Error: sim.R == sim.cpp  ─────────────────────────────────────────────────
  the argument has already been evaluated
  1: sapply(mxd, expect_equal, expected = 0)
  2: lapply(X = X, FUN = FUN, ...)
  3: FUN(X[[i]], ...)
  4: quasi_label(enquo(object), label)
  5: force(quo)
  6: enquo(object)
  7: eval_bare(capture, caller_env())
  8: (function (x, strict = TRUE) 
     {
         caller_env <- parent.frame()
         if (identical(caller_env, globalenv())) {
             stop("must be called in a function")
         }
         if (missing(x)) {
             stop("argument \"x\" is missing")
         }
         .Call(rlang_capturearg, NULL, NULL, pairlist(caller_env, strict), get_env())
     })(object)
  
  ── 9. Error: ll.R == ll.cpp  ───────────────────────────────────────────────────
  the argument has already been evaluated
  1: sapply(mxd, expect_equal, expected = 0)
  2: lapply(X = X, FUN = FUN, ...)
  3: FUN(X[[i]], ...)
  4: quasi_label(enquo(object), label)
  5: force(quo)
  6: enquo(object)
  7: eval_bare(capture, caller_env())
  8: (function (x, strict = TRUE) 
     {
         caller_env <- parent.frame()
         if (identical(caller_env, globalenv())) {
             stop("must be called in a function")
         }
         if (missing(x)) {
             stop("argument \"x\" is missing")
         }
         .Call(rlang_capturearg, NULL, NULL, pairlist(caller_env, strict), get_env())
     })(object)
  
  ── 10. Error: lpi.R == lpi.cpp  ────────────────────────────────────────────────
  the argument has already been evaluated
  1: sapply(mxd[, 2], expect_equal, expected = 0)
  2: lapply(X = X, FUN = FUN, ...)
  3: FUN(X[[i]], ...)
  4: quasi_label(enquo(object), label)
  5: force(quo)
  6: enquo(object)
  7: eval_bare(capture, caller_env())
  8: (function (x, strict = TRUE) 
     {
         caller_env <- parent.frame()
         if (identical(caller_env, globalenv())) {
             stop("must be called in a function")
         }
         if (missing(x)) {
             stop("argument \"x\" is missing")
         }
         .Call(rlang_capturearg, NULL, NULL, pairlist(caller_env, strict), get_env())
     })(object)
  
  ── 11. Error: drift.R == drift.cpp  ────────────────────────────────────────────
  the argument has already been evaluated
  1: sapply(mxd, expect_equal, expected = 0)
  2: lapply(X = X, FUN = FUN, ...)
  3: FUN(X[[i]], ...)
  4: quasi_label(enquo(object), label)
  5: force(quo)
  6: enquo(object)
  7: eval_bare(capture, caller_env())
  8: (function (x, strict = TRUE) 
     {
         caller_env <- parent.frame()
         if (identical(caller_env, globalenv())) {
             stop("must be called in a function")
         }
         if (missing(x)) {
             stop("argument \"x\" is missing")
         }
         .Call(rlang_capturearg, NULL, NULL, pairlist(caller_env, strict), get_env())
     })(object)
  
  ── 12. Error: diff.R == diff.cpp  ──────────────────────────────────────────────
  the argument has already been evaluated
  1: sapply(mxd, expect_equal, expected = 0)
  2: lapply(X = X, FUN = FUN, ...)
  3: FUN(X[[i]], ...)
  4: quasi_label(enquo(object), label)
  5: force(quo)
  6: enquo(object)
  7: eval_bare(capture, caller_env())
  8: (function (x, strict = TRUE) 
     {
         caller_env <- parent.frame()
         if (identical(caller_env, globalenv())) {
             stop("must be called in a function")
         }
         if (missing(x)) {
             stop("argument \"x\" is missing")
         }
         .Call(rlang_capturearg, NULL, NULL, pairlist(caller_env, strict), get_env())
     })(object)
  
  ── 13. Error: sim.R == sim.cpp  ────────────────────────────────────────────────
  the argument has already been evaluated
  1: sapply(mxd, expect_equal, expected = 0)
  2: lapply(X = X, FUN = FUN, ...)
  3: FUN(X[[i]], ...)
  4: quasi_label(enquo(object), label)
  5: force(quo)
  6: enquo(object)
  7: eval_bare(capture, caller_env())
  8: (function (x, strict = TRUE) 
     {
         caller_env <- parent.frame()
         if (identical(caller_env, globalenv())) {
             stop("must be called in a function")
         }
         if (missing(x)) {
             stop("argument \"x\" is missing")
         }
         .Call(rlang_capturearg, NULL, NULL, pairlist(caller_env, strict), get_env())
     })(object)
  
  ── 14. Error: ll.R == ll.cpp  ──────────────────────────────────────────────────
  the argument has already been evaluated
  1: sapply(mxd, expect_equal, expected = 0)
  2: lapply(X = X, FUN = FUN, ...)
  3: FUN(X[[i]], ...)
  4: quasi_label(enquo(object), label)
  5: force(quo)
  6: enquo(object)
  7: eval_bare(capture, caller_env())
  8: (function (x, strict = TRUE) 
     {
         caller_env <- parent.frame()
         if (identical(caller_env, globalenv())) {
             stop("must be called in a function")
         }
         if (missing(x)) {
             stop("argument \"x\" is missing")
         }
         .Call(rlang_capturearg, NULL, NULL, pairlist(caller_env, strict), get_env())
     })(object)
  
  ── 15. Error: lpi.R == lpi.cpp  ────────────────────────────────────────────────
  the argument has already been evaluated
  1: sapply(mxd[, 2], expect_equal, expected = 0)
  2: lapply(X = X, FUN = FUN, ...)
  3: FUN(X[[i]], ...)
  4: quasi_label(enquo(object), label)
  5: force(quo)
  6: enquo(object)
  7: eval_bare(capture, caller_env())
  8: (function (x, strict = TRUE) 
     {
         caller_env <- parent.frame()
         if (identical(caller_env, globalenv())) {
             stop("must be called in a function")
         }
         if (missing(x)) {
             stop("argument \"x\" is missing")
         }
         .Call(rlang_capturearg, NULL, NULL, pairlist(caller_env, strict), get_env())
     })(object)
  
  ── 16. Error: drift.R == drift.cpp  ────────────────────────────────────────────
  the argument has already been evaluated
  1: sapply(mxd, expect_equal, expected = 0)
  2: lapply(X = X, FUN = FUN, ...)
  3: FUN(X[[i]], ...)
  4: quasi_label(enquo(object), label)
  5: force(quo)
  6: enquo(object)
  7: eval_bare(capture, caller_env())
  8: (function (x, strict = TRUE) 
     {
         caller_env <- parent.frame()
         if (identical(caller_env, globalenv())) {
             stop("must be called in a function")
         }
         if (missing(x)) {
             stop("argument \"x\" is missing")
         }
         .Call(rlang_capturearg, NULL, NULL, pairlist(caller_env, strict), get_env())
     })(object)
  
  ── 17. Error: diff.R == diff.cpp  ──────────────────────────────────────────────
  the argument has already been evaluated
  1: sapply(mxd, expect_equal, expected = 0)
  2: lapply(X = X, FUN = FUN, ...)
  3: FUN(X[[i]], ...)
  4: quasi_label(enquo(object), label)
  5: force(quo)
  6: enquo(object)
  7: eval_bare(capture, caller_env())
  8: (function (x, strict = TRUE) 
     {
         caller_env <- parent.frame()
         if (identical(caller_env, globalenv())) {
             stop("must be called in a function")
         }
         if (missing(x)) {
             stop("argument \"x\" is missing")
         }
         .Call(rlang_capturearg, NULL, NULL, pairlist(caller_env, strict), get_env())
     })(object)
  
  ── 18. Error: sim.R == sim.cpp  ────────────────────────────────────────────────
  the argument has already been evaluated
  1: sapply(mxd, expect_equal, expected = 0)
  2: lapply(X = X, FUN = FUN, ...)
  3: FUN(X[[i]], ...)
  4: quasi_label(enquo(object), label)
  5: force(quo)
  6: enquo(object)
  7: eval_bare(capture, caller_env())
  8: (function (x, strict = TRUE) 
     {
         caller_env <- parent.frame()
         if (identical(caller_env, globalenv())) {
             stop("must be called in a function")
         }
         if (missing(x)) {
             stop("argument \"x\" is missing")
         }
         .Call(rlang_capturearg, NULL, NULL, pairlist(caller_env, strict), get_env())
     })(object)
  
  ── 19. Error: ll.R == ll.cpp  ──────────────────────────────────────────────────
  the argument has already been evaluated
  1: sapply(mxd, expect_equal, expected = 0)
  2: lapply(X = X, FUN = FUN, ...)
  3: FUN(X[[i]], ...)
  4: quasi_label(enquo(object), label)
  5: force(quo)
  6: enquo(object)
  7: eval_bare(capture, caller_env())
  8: (function (x, strict = TRUE) 
     {
         caller_env <- parent.frame()
         if (identical(caller_env, globalenv())) {
             stop("must be called in a function")
         }
         if (missing(x)) {
             stop("argument \"x\" is missing")
         }
         .Call(rlang_capturearg, NULL, NULL, pairlist(caller_env, strict), get_env())
     })(object)
  
  ── 20. Error: lpi.R == lpi.cpp  ────────────────────────────────────────────────
  the argument has already been evaluated
  1: sapply(mxd[, 2], expect_equal, expected = 0)
  2: lapply(X = X, FUN = FUN, ...)
  3: FUN(X[[i]], ...)
  4: quasi_label(enquo(object), label)
  5: force(quo)
  6: enquo(object)
  7: eval_bare(capture, caller_env())
  8: (function (x, strict = TRUE) 
     {
         caller_env <- parent.frame()
         if (identical(caller_env, globalenv())) {
             stop("must be called in a function")
         }
         if (missing(x)) {
             stop("argument \"x\" is missing")
         }
         .Call(rlang_capturearg, NULL, NULL, pairlist(caller_env, strict), get_env())
     })(object)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 30 SKIPPED: 0 FAILED: 20
  1. Error: drift.R == drift.cpp 
  2. Error: diff.R == diff.cpp 
  3. Error: sim.R == sim.cpp 
  4. Error: ll.R == ll.cpp 
  5. Error: lpi.R == lpi.cpp 
  6. Error: drift.R == drift.cpp 
  7. Error: diff.R == diff.cpp 
  8. Error: sim.R == sim.cpp 
  9. Error: ll.R == ll.cpp 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted