Package: gorica
Check: tests
New result: ERROR
    Running ‘testthat.R’ [154s/154s]
  Running the tests in ‘tests/testthat.R’ failed.
  Complete output:
    > library(testthat)
    > library(lavaan)
    This is lavaan 0.7-2
    lavaan is FREE software! Please report any bugs.
    > library(bain)
    > library(gorica)
    Registered S3 method overwritten by 'gorica':
      method               from
      get_estimates.lavaan bain
    > test_check("gorica")
    Saving _problems/test-gorica_table-77.R
    [ FAIL 1 | WARN 15 | SKIP 1 | PASS 102 ]
    
    ══ Skipped tests (1) ═══════════════════════════════════════════════════════════
    • empty test (1):
    
    ══ Failed tests ════════════════════════════════════════════════════════════════
    ── Error ('test-gorica_table.R:77:1'): (code run outside of `test_that()`) ─────
    Error in ``colnames<-`(`*tmp*`, value = reverse_rename_function(colnames(out)))`: attempt to set 'colnames' on an object with less than two dimensions
    Backtrace:
        ▆
     1. ├─gorica::gorica(tab, hypothesis = "x[2,1],x[2,2],x[2,3],x[2,4],x[1,1],x[1,2],x[1,3],x[1,4];x[2,1]>(x[2,2],x[2,3],x[2,4])&x[2,1]>0.3") at test-gorica_table.R:77:1
     2. └─gorica:::gorica.table(tab, hypothesis = "x[2,1],x[2,2],x[2,3],x[2,4],x[1,1],x[1,2],x[1,3],x[1,4];x[2,1]>(x[2,2],x[2,3],x[2,4])&x[2,1]>0.3")
     3.   └─gorica:::with_env(gorica_housekeeping)
     4.     ├─base::do.call(fun, list(...))
     5.     └─gorica (local) `<fn>`()
     6.       └─bain:::parse_hypothesis(names(x), hypothesis)
     7.         └─base::lapply(...)
     8.           └─bain (local) FUN(X[[i]], ...)
     9.             └─base::`colnames<-`(`*tmp*`, value = reverse_rename_function(colnames(out)))
    
    [ FAIL 1 | WARN 15 | SKIP 1 | PASS 102 ]
    Error:
    ! Test failures.
    Execution halted