Running ‘testthat.R’ [11s/15s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(tergmLite)
  Loading required package: ergm
  Loading required package: network
  
  'network' 1.17.2 (2022-05-20), part of the Statnet Project
  * 'news(package="network")' for changes since last version
  * 'citation("network")' for citation information
  * 'https://statnet.org' for help, support, and other information
  
  
  'ergm' 4.2.2 (2022-06-01), part of the Statnet Project
  * 'news(package="ergm")' for changes since last version
  * 'citation("ergm")' for citation information
  * 'https://statnet.org' for help, support, and other information
  
  'ergm' 4 is a major update that introduces some backwards-incompatible
  changes. Please type 'news(package="ergm")' for a list of major
  changes.
  
  Loading required package: tergm
  Loading required package: networkDynamic
  
  'networkDynamic' 0.11.2 (2022-05-04), part of the Statnet Project
  * 'news(package="networkDynamic")' for changes since last version
  * 'citation("networkDynamic")' for citation information
  * 'https://statnet.org' for help, support, and other information
  
  
  'tergm' 4.1.0 (2022-06-22), part of the Statnet Project
  * 'news(package="tergm")' for changes since last version
  * 'citation("tergm")' for citation information
  * 'https://statnet.org' for help, support, and other information
  
  
  Attaching package: 'tergm'
  
  The following object is masked from 'package:ergm':
  
      snctrl
  
  NOTE: tergmLite functionality has largely been wrapped into EpiModel
  with EpiModel >= v2.2.0. Some updates may be needed for EpiModel
  extension models or packages that modify the network resimulation
  modules in EpiModel.  File a help issue at
  https://github.com/EpiModel/EpiModel for assistance.
  
  > 
  > test_check("tergmLite")
  [ FAIL 4 | WARN 1 | SKIP 5 | PASS 0 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • empty test (5)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-networkLite.R:25:3): network and networkLite estimate identically in ergm ──
  Error in `x$el$.tail`: $ operator is invalid for atomic vectors
  Backtrace:
      ▆
   1. └─ergm::ergm(...) at test-networkLite.R:25:2
   2.   └─ergm::ergm.getnetwork(formula)
   3.     ├─network::as.edgelist(nw)
   4.     └─EpiModel:::as.edgelist.networkLite(nw)
   5.       └─base::matrix(c(x$el$.tail, x$el$.head), ncol = 2)
  ── Error (???): network and networkLite simulate identically in ergm ───────────
  <subscriptOutOfBoundsError/error/condition>
  Error in `x$el[["na"]]`: subscript out of bounds
  Backtrace:
       ▆
    1. ├─stats::simulate(...)
    2. └─ergm:::simulate.formula_lhs_network(...)
    3.   ├─ergm::simulate_formula(...)
    4.   ├─tergm:::simulate_formula.network(...)
    5.   │ └─base::eval.parent(mc)
    6.   │   └─base::eval(expr, p)
    7.   │     └─base::eval(expr, p)
    8.   └─ergm (local) `<fn>`(...)
    9.     └─ergm:::.handle.auto.constraints(...)
   10.       ├─network::network.naedgecount(nw)
   11.       └─EpiModel:::network.naedgecount.networkLite(nw)
  ── Error (test-networkLite.R:117:3): network and networkLite simulate identically in san ──
  Error in `x$el$.tail`: $ operator is invalid for atomic vectors
  Backtrace:
      ▆
   1. ├─ergm::san(...) at test-networkLite.R:117:2
   2. └─ergm:::san.formula(...)
   3.   └─ergm::ergm.getnetwork(formula)
   4.     ├─network::as.edgelist(nw)
   5.     └─EpiModel:::as.edgelist.networkLite(nw)
   6.       └─base::matrix(c(x$el$.tail, x$el$.head), ncol = 2)
  ── Error (???): network and networkLite simulate identically in tergm ──────────
  <subscriptOutOfBoundsError/error/condition>
  Error in `x$el[[attrname]]`: subscript out of bounds
  Backtrace:
       ▆
    1. ├─stats::simulate(...)
    2. └─ergm:::simulate.formula_lhs_network(...)
    3.   ├─ergm::simulate_formula(...)
    4.   └─tergm:::simulate_formula.network(...)
    5.     └─base::replicate(...)
    6.       └─base::sapply(...)
    7.         └─base::lapply(X = X, FUN = FUN, ...)
    8.           └─tergm (local) FUN(X[[i]], ...)
    9.             └─tergm::tergm_MCMC_sample(...)
   10.               ├─ergm::ergm_state(...)
   11.               └─ergm:::ergm_state.network(...)
   12.                 ├─network::as.edgelist(x, attrname = x %ergmlhs% "response", output = "tibble")
   13.                 └─EpiModel:::as.edgelist.networkLite(...)
   14.                   ├─statnet.common::NVL(x %e% "na", FALSE)
   15.                   │ └─base::eval(e, parent.frame())
   16.                   │   └─base::eval(e, parent.frame())
   17.                   └─x %e% "na"
   18.                     ├─network::get.edge.value(x, attrname = attrname)
   19.                     └─EpiModel:::get.edge.value.networkLite(x, attrname = attrname)
  
  [ FAIL 4 | WARN 1 | SKIP 5 | PASS 0 ]
  Error: Test failures
  Execution halted