Running 'spelling.R' [0s]
  Running 'testthat.R' [284s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(envi)
  
  Welcome to {envi} version 0.1.17
  > help("envi") # for documentation
  > citation("envi") # for how to cite
  
  > 
  > ## WORKAROUND: Avoid R bug 18119 [1] that is trigger when for instance the
  > ## 'tcltk' package is loaded on macOS, or when running in the RStudio Console
  > ## [1] https://bugs.r-project.org/bugzilla/show_bug.cgi?id=18119
  > options(parallelly.makeNodePSOCK.setup_strategy = "sequential")
  > 
  > test_check("envi")
  
  
  [ FAIL 1 | WARN 3 | SKIP 4 | PASS 38 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (4)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-perlrren.R:139:3'): perlrren works ─────────────────────────────
  Error in `{
      if (verbose == TRUE) {
          progBar(kk, n_sim)
      }
      x <- spatstat.geom::split.ppp(obs_ppp, f = "levels")
      z <- vector("list", length(x))
      for (i in 1:length(x)) {
          z[[i]] <- spatstat.geom::rjitter(x[[i]], radius = radii[i])
          names(z) <- names(x)
          z <- spatstat.geom::as.solist(z, demote = TRUE)
      }
      xx <- spatstat.geom::superimpose(z)
      for (i in 1:length(covariates)) {
          spatstat.geom::marks(xx)[[5 + i]] <- covariates[[i]][xx, 
              drop = FALSE]
          names(spatstat.geom::marks(xx))[5 + i] <- names(covariates[i])
      }
      xxx <- spatstat.geom::marks(xx)[, -5]
      xxx <- na.omit(xxx)
      xxxx <- lrren(obs_locs = xxx, predict_locs = predict_locs, 
          conserve = FALSE, ...)
      if (k == 1) {
          outer_poly <- xxxx$out$outer_poly
      }
      else {
          outer_poly <- NULL
      }
      if (p_correct != "none") {
          p_critical <- pval_correct(input = xxxx$out$obs$P$v, 
              type = p_correct, alpha = alpha)
      }
      else {
          p_critical <- alpha
      }
      lower_tail <- p_critical/2
      upper_tail <- 1 - lower_tail
      sig_pval <- xxxx$out$obs$P < lower_tail | xxxx$out$obs$P > 
          upper_tail
      par_results <- list(sim_risk = xxxx$out$obs$rr, sim_pval = xxxx$out$obs$P, 
          outer_poly = outer_poly, p_critical = p_critical, sig_pval = sig_pval)
  }`: task 3 failed - "cannot allocate vector of size 1024 Kb"
  Backtrace:
      ▆
   1. ├─testthat::expect_named(...) at test-perlrren.R:139:2
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─envi::perlrren(...)
   5.   └─... %fun% ...
   6.     └─e$fun(obj, substitute(ex), parent.frame(), e$data)
  
  [ FAIL 1 | WARN 3 | SKIP 4 | PASS 38 ]
  Error: Test failures
  Execution halted