Running examples in ‘broom-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: tidy.epi.2by2
> ### Title: Tidy a(n) epi.2by2 object
> ### Aliases: tidy.epi.2by2 epiR_tidiers
> 
> ### ** Examples
> 
> ## Don't show: 
> if (rlang::is_installed("epiR")) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf
+ ## End(Don't show)
+ 
+ # load libraries for models and data
+ library(epiR)
+ 
+ # generate data
+ dat <- matrix(c(13, 2163, 5, 3349), nrow = 2, byrow = TRUE)
+ 
+ rownames(dat) <- c("DF+", "DF-")
+ colnames(dat) <- c("FUS+", "FUS-")
+ 
+ # fit model
+ fit <- epi.2by2(
+   dat = as.table(dat), method = "cross.sectional",
+   conf.level = 0.95, units = 100, outcome = "as.columns"
+ )
+ 
+ # summarize model fit with tidiers
+ tidy(fit, parameters = "moa")
+ tidy(fit, parameters = "stat")
+ ## Don't show: 
+ }) # examplesIf
> library(epiR)
Loading required package: survival
Package epiR 2.0.85 is loaded
Type help(epi.about) for summary information
Type browseVignettes(package = 'epiR') to learn how to use epiR for applied epidemiological analyses


> dat <- matrix(c(13, 2163, 5, 3349), nrow = 2, byrow = TRUE)
> rownames(dat) <- c("DF+", "DF-")
> colnames(dat) <- c("FUS+", "FUS-")
> fit <- epi.2by2(dat = as.table(dat), method = "cross.sectional", conf.level = 0.95, 
+     units = 100, outcome = "as.columns")
> tidy(fit, parameters = "moa")
Error in `dplyr::bind_rows()`:
! Can't combine `PR.strata.wald$test.statistic` <double> and `chi2.strata.fisher$test.statistic` <character>.
Backtrace:
     ▆
  1. ├─(if (getRversion() >= "3.4") withAutoprint else force)(...)
  2. │ └─base::source(...)
  3. │   ├─base::withVisible(eval(ei, envir))
  4. │   └─base::eval(ei, envir)
  5. │     └─base::eval(ei, envir)
  6. ├─generics::tidy(fit, parameters = "moa")
  7. ├─broom:::tidy.epi.2by2(fit, parameters = "moa")
  8. │ └─dplyr::bind_rows(massoc[names(massoc) != "chi2.correction"], .id = "term")
  9. │   └─vctrs::vec_rbind(!!!dots, .names_to = .id, .error_call = current_env())
 10. └─vctrs (local) `<fn>`()
 11.   └─vctrs::vec_default_ptype2(...)
 12.     ├─base::withRestarts(...)
 13.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
 14.     │   └─base (local) doWithOneRestart(return(expr), restart)
 15.     └─vctrs::stop_incompatible_type(...)
 16.       └─vctrs:::stop_incompatible(...)
 17.         └─vctrs:::stop_vctrs(...)
 18.           └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = call)
Execution halted