From c8d91519a644969f3e8641bae51ea9f3c00191da Mon Sep 17 00:00:00 2001
From: Daniel <mail@danielluedecke.de>
Date: Mon, 20 Nov 2023 10:43:39 +0100
Subject: [PATCH] Bootstrap Argument in `parameters::parameters()` Function Not
 Working with svyglm Models #918

---
 R/methods_survey.R | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/R/methods_survey.R b/R/methods_survey.R
index 5b0e4751c..454494586 100644
--- a/R/methods_survey.R
+++ b/R/methods_survey.R
@@ -4,8 +4,6 @@
 model_parameters.svyglm <- function(model,
                                     ci = 0.95,
                                     ci_method = "wald",
-                                    bootstrap = FALSE,
-                                    iterations = 1000,
                                     standardize = NULL,
                                     exponentiate = FALSE,
                                     p_adjust = NULL,
@@ -16,16 +14,25 @@ model_parameters.svyglm <- function(model,
                                     ...) {
   if (insight::n_obs(model) > 1e4 && ci_method == "likelihood") {
     insight::format_alert(
-      "Likelihood confidence intervals may take longer time to compute. Use 'ci_method=\"wald\"' for faster computation of CIs."
+      "Likelihood confidence intervals may take longer time to compute. Use 'ci_method=\"wald\"' for faster computation of CIs." # nolint
     )
   }
 
+  # validation check, warn if unsupported argument is used.
+  dot_args <- .check_dots(
+    dots = list(...),
+    not_allowed = c("vcov", "vcov_args", "bootstrap"),
+    class(x)[1],
+    function_name = "model_parameters",
+    verbose = verbose
+  )
+
   out <- .model_parameters_generic(
     model = model,
     ci = ci,
     ci_method = ci_method,
-    bootstrap = bootstrap,
-    iterations = iterations,
+    bootstrap = FALSE,
+    iterations = 1000,
     merge_by = "Parameter",
     standardize = standardize,
     exponentiate = exponentiate,