minor

IndrajeetPatil · Sep 11, 2023 · 9829d15 · 9829d15
1 parent 444fe63
commit 9829d15
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 9 deletions.
diff --git a/R/meta_analysis.R b/R/meta_analysis.R
@@ -72,11 +72,11 @@ meta_analysis <- function(data,
                           ...) {
   type <- stats_type_switch(type)
 
-  # nolint start: line_length_linter, keyword_quote_linter.
+  # nolint start: line_length_linter.
   c(.ns, .fn, .f.args) %<-% switch(type,
-    "parametric" = list("metafor", "rma", list(yi = quote(estimate), sei = quote(std.error), ...)),
-    "robust"     = list("metaplus", "metaplus", list(yi = quote(estimate), sei = quote(std.error), random = random, ...)),
-    "bayes"      = list("metaBMA", "meta_random", list(y = quote(estimate), SE = quote(std.error), ...))
+    parametric = list("metafor", "rma", list(yi = quote(estimate), sei = quote(std.error), ...)),
+    robust     = list("metaplus", "metaplus", list(yi = quote(estimate), sei = quote(std.error), random = random, ...)),
+    bayes      = list("metaBMA", "meta_random", list(y = quote(estimate), SE = quote(std.error), ...))
   )
   # nolint end
 

diff --git a/R/two_sample_test.R b/R/two_sample_test.R
@@ -210,10 +210,10 @@ two_sample_test <- function(data,
   # expression ---------------------------------------
 
   add_expression_col(
-    data     = stats_df,
-    paired   = paired,
-    n        = ifelse(paired, length(unique(data$.rowid)), nrow(data)),
-    k        = k,
-    k.df     = k.df
+    data   = stats_df,
+    paired = paired,
+    n      = ifelse(paired, length(unique(data$.rowid)), nrow(data)),
+    k      = k,
+    k.df   = k.df
   )
 }