lintr, styler

easystats · Oct 19, 2024 · 241db43 · 241db43
1 parent f968cd0
commit 241db43
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/R/ci_generic.R b/R/ci_generic.R
@@ -20,7 +20,8 @@
   method <- tolower(method)
   method <- insight::validate_argument(
     method,
-    c("wald", "ml1", "betwithin", "kr", "satterthwaite", "kenward", "boot",
+    c(
+      "wald", "ml1", "betwithin", "kr", "satterthwaite", "kenward", "boot",
       "profile", "residual", "normal"
     )
   )

diff --git a/R/extract_random_variances.R b/R/extract_random_variances.R
@@ -28,7 +28,7 @@
 
   # check for errors
   if (is.null(out) && isTRUE(verbose)) {
-    insight::format_warning("Something went wrong when calculating random effects parameters. Only showing model's fixed effects now. You may use `effects=\"fixed\"` to speed up the call to `model_parameters()`.")
+    insight::format_warning("Something went wrong when calculating random effects parameters. Only showing model's fixed effects now. You may use `effects=\"fixed\"` to speed up the call to `model_parameters()`.") # nolint
   }
 
   out
@@ -208,7 +208,7 @@
   )
 
   # fix names for uncorrelated slope-intercepts
-  pattern <- paste0("(", paste0(insight::find_random(model, flatten = TRUE), collapse = "|"), ")\\.\\d+$")
+  pattern <- paste0("(", paste(insight::find_random(model, flatten = TRUE), collapse = "|"), ")\\.\\d+$")
   out$Group <- gsub(pattern, "\\1", out$Group)
 
   # remove non-used columns