coda rises from the dead

DESCRIPTION

@@ -31,6 +31,7 @@ Description: Convert fitted objects from various R mixed-model packages
     provides a one-row summary of model-level statistics.
 Imports:
     broom,
+    coda,
     dplyr,
     methods,
     nlme,
@@ -40,7 +41,6 @@ Imports:
     tidyr
 Suggests:
     brms,
-    coda,
     dotwhisker,
     knitr,
     testthat,

R/MCMCglmm_prediction.R

@@ -81,8 +81,6 @@
 predict2.MCMCglmm <- function(object, X, Z, use = c("all", "mean"),
                               type = c("lp", "response"), ...) {
 
-  assert_dependency("coda")
-
   use <- match.arg(use)
   type <- match.arg(type)
 

R/brms_tidiers.R

@@ -256,8 +256,6 @@ tidy.brmsfit <- function(x, parameters = NA,
   out$std.error <- apply(samples, 2, stdfun)
   if (conf.int) {
 
-    assert_dependency("coda")
-
     stopifnot(length(conf.level) == 1L)
     probs <- c((1 - conf.level) / 2, 1 - (1 - conf.level) / 2)
     if (conf.method == "HPDinterval") {

R/mcmc_tidiers.R

@@ -82,8 +82,6 @@ tidyMCMC <- function(x,
                      index = FALSE,
                      ...) {
 
-  assert_dependency("coda")
-
   conf.method <- match.arg(conf.method)
 
   stan <- inherits(x, "stanfit")
@@ -156,8 +154,6 @@ tidy.rjags <- function(x,
                        conf.method = "quantile",
                        ...) {
 
-  assert_dependency("coda")
-
   tidyMCMC(coda::as.mcmc(x$BUGS),
            robust = robust,
            conf.int = conf.int,
@@ -183,8 +179,6 @@ tidy.mcmc.list <- tidyMCMC
 ## copied from emdbook ...
 as.mcmc.bugs <- function (x) {
 
-    assert_dependency("coda")
-
     if (x$n.chains > 1) {
         z <- list()
         for (i in 1:x$n.chains) {

R/rstanarm_tidiers.R

@@ -115,8 +115,6 @@ tidy.stanreg <- function(x,
 
         if (conf.int) {
 
-            assert_dependency("coda")
-
             cifix <- switch(conf.method,
                             HPDinterval= {
                                 m <- as.matrix(x$stanfit)