default to wald for unknown ci_method

R/get_df.R

@@ -500,7 +500,7 @@ get_df.mediate <- function(x, ...) {
 .check_df_type <- function(type) {
   # handle mixing of ci_method and type arguments
   if (tolower(type) %in% c("profile", "uniroot", "quantile", "likelihood", "eti", "hdi", "bci", "boot", "spi", "analytical", "nokr")) {
-    type <- "residual"
+    type <- "wald"
   }
   type
 }