allow 'parametric' (ignored) in tidy.stanreg (fixes #153)

DESCRIPTION

@@ -68,6 +68,7 @@ Suggests:
     MCMCglmm,
     mediation,
     mgcv,
+    mice,
     ordinal,
     pander,
     pbkrtest,

R/rstanarm_tidiers.R

@@ -94,7 +94,8 @@ tidy.stanreg <- function(x,
                          conf.method=c("quantile","HPDinterval"),
                          exponentiate = FALSE,
                          ...) {
-    check_dots(...)
+    ## ignore 'parametric', which may be passed by mice:::summary.mira()
+    check_dots(..., .ignore = "parametric")
     conf.method <- match.arg(conf.method)
     std.error <- estimate <- NULL ## fool code checker/NSE
     miss_effects <- missing(effects)

tests/testthat/test-rstanarm.R

@@ -48,5 +48,19 @@ if (suppressPackageStartupMessages(require(rstanarm, quietly = TRUE))) {
       expect_equal(td1e$conf.high, exp(td1$conf.high))
       expect_equal(td1e$std.error, exp(td1$estimate)*td1$std.error)
   })
-
+
+  ## GH 153
+  if (requireNamespace("mice", quietly = TRUE)) {
+      test_that("mice imputed data", {
+          data(nhanes)
+          imp <- mice(nhanes, m = 3, print = FALSE)
+          suppressWarnings(
+              capture.output(ms <- with(imp,
+                                        stan_glm(age ~ bmi + chl)))
+          )
+          expect_is(summary(pool(ms)), "mipo.summary")
+      })
+  }
+
 } ## rstanarm available
+