Package check result: ERROR

Check: examples, Result: ERROR
  Running examples in ‘FCO-Ex.R’ failed
  The error most likely occurred in:
  
  > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
  > ### Name: flex_co2
  > ### Title: Obtain cutoffs for fit indices simulated by gen_fit2.
  > ### Aliases: flex_co2
  > 
  > ### ** Examples
  > 
  > ## No test: 
  > #Simple example
  > library(lavaan)
  This is lavaan 0.6-21
  lavaan is FREE software! Please report any bugs.
  > library(dplyr)
  
  Attaching package: ‘dplyr’
  
  The following objects are masked from ‘package:stats’:
  
      filter, lag
  
  The following objects are masked from ‘package:base’:
  
      intersect, setdiff, setequal, union
  
  > HS.model <- ' visual  =~ x1 + x2 + x3
  +               textual =~ x4 + x5 + x6
  +              speed   =~ x7 + x8 + x9 '
  > 
  > fit <- cfa(
  +   HS.model,
  +   data = HolzingerSwineford1939
  + )
  > #Note: Demonstration only! Please use higher numbers of replications for your applications (>= 500).
  > fits <- gen_fit2(fit = fit, rep = 100)
  Warning in pop_mod(mod = mod, x = x, type = type, standardized = standardized,  :
    At least one loading is > 1. Consider revision of standardized.
  Warning in checker(pop.mod = cpop, cfa = cfa, x = x, esti = esti, sm = sm,  :
    Skewness (80.5) or Kurtosis (987.3) are very high. Consider changing estimator and/or arguments sk and ku.
  > #Default evaluation:
  > flex_co2(fits)
  Error in `dplyr::if_else()`:
  ! `condition` must be a logical vector, not a logical matrix.
  Backtrace:
      ▆
   1. ├─FCO::flex_co2(fits)
   2. │ └─FCO:::get_co(co, tab, ind = i, correct.fits = cf, miss.fits = mf)
   3. │   └─FCO:::get_DFI(co[i, ], tab, ind)
   4. │     └─dplyr::if_else(...)
   5. │       └─vctrs::vec_if_else(...)
   6. └─rlang::abort(message = message, call = call)
  Execution halted