lintr

easystats · May 26, 2024 · c86e88e · c86e88e
1 parent 8e94995
commit c86e88e
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/R/cor_test.R b/R/cor_test.R
@@ -282,8 +282,11 @@ cor_test <- function(data,
 
   # Reorder columns
   if ("CI_low" %in% names(out)) {
-    order <- c("Parameter1", "Parameter2", "r", "rho", "tau", "Dxy", "CI", "CI_low", "CI_high")
-    out <- out[c(order[order %in% names(out)], setdiff(colnames(out), order[order %in% names(out)]))]
+    col_order <- c("Parameter1", "Parameter2", "r", "rho", "tau", "Dxy", "CI", "CI_low", "CI_high")
+    out <- out[c(
+      col_order[col_order %in% names(out)],
+      setdiff(colnames(out), col_order[col_order %in% names(out)])
+    )]
   }
 
   # Output