styling

.lintr

@@ -1,5 +1,5 @@
 linters: linters_with_defaults(
-  line_length_linter = line_length_linter(120),
+  line_length_linter = line_length_linter(130),
   cyclocomp_linter = NULL,
   object_usage_linter = NULL
   )

R/ard_proportion_ci.R

@@ -25,7 +25,7 @@
 #' @examples
 #' ard_proportion_ci(mtcars, variables = c(vs, am), method = "wilson")
 ard_proportion_ci <- function(data, variables, by = dplyr::group_vars(data),
-                              conf.level = 0.95,
+                              conf.level = 0.95, # nolint
                               strata,
                               weights = NULL,
                               max.iterations = 10,
@@ -52,27 +52,27 @@ ard_proportion_ci <- function(data, variables, by = dplyr::group_vars(data),
       ~ list(
         prop_ci =
           switch(method,
-            "waldcc" = \(x, ...) proportion_ci_wald(x, conf.level = conf.level, correct = TRUE),
-            "wald" = \(x, ...) proportion_ci_wald(x, conf.level = conf.level, correct = FALSE),
-            "wilsoncc" = \(x, ...) proportion_ci_wilson(x, conf.level = conf.level, correct = TRUE),
-            "wilson" = \(x, ...) proportion_ci_wilson(x, conf.level = conf.level, correct = FALSE),
-            "clopper-pearson" = \(x, ...) proportion_ci_clopper_pearson(x, conf.level = conf.level),
-            "agresti-coull" = \(x, ...) proportion_ci_agresti_coull(x, conf.level = conf.level),
-            "jeffreys" = \(x, ...) proportion_ci_jeffreys(x, conf.level = conf.level),
-            "strat_wilsoncc" = \(x, data, ...) {
-              proportion_ci_strat_wilson(x,
-                strata = data[[strata]], weights = weights,
-                max.iterations = max.iterations,
-                conf.level = conf.level, correct = TRUE
-              )
-            },
-            "strat_wilson" = \(x, data, ...) {
-              proportion_ci_strat_wilson(x,
-                strata = data[[strata]], weights = weights,
-                max.iterations = max.iterations,
-                conf.level = conf.level, correct = FALSE
-              )
-            }
+                 "waldcc" = \(x, ...) proportion_ci_wald(x, conf.level = conf.level, correct = TRUE),
+                 "wald" = \(x, ...) proportion_ci_wald(x, conf.level = conf.level, correct = FALSE),
+                 "wilsoncc" = \(x, ...) proportion_ci_wilson(x, conf.level = conf.level, correct = TRUE),
+                 "wilson" = \(x, ...) proportion_ci_wilson(x, conf.level = conf.level, correct = FALSE),
+                 "clopper-pearson" = \(x, ...) proportion_ci_clopper_pearson(x, conf.level = conf.level),
+                 "agresti-coull" = \(x, ...) proportion_ci_agresti_coull(x, conf.level = conf.level),
+                 "jeffreys" = \(x, ...) proportion_ci_jeffreys(x, conf.level = conf.level),
+                 "strat_wilsoncc" = \(x, data, ...) {
+                   proportion_ci_strat_wilson(x,
+                                              strata = data[[strata]], weights = weights,
+                                              max.iterations = max.iterations,
+                                              conf.level = conf.level, correct = TRUE
+                   )
+                 },
+                 "strat_wilson" = \(x, data, ...) {
+                   proportion_ci_strat_wilson(x,
+                                              strata = data[[strata]], weights = weights,
+                                              max.iterations = max.iterations,
+                                              conf.level = conf.level, correct = FALSE
+                   )
+                 }
           )
       )
   ) |>