Make rank a function in across()

qhtcp-workflow/apps/r/calculate_interaction_zscores.R

@@ -999,8 +999,8 @@ process_data <- function(df, variables, filter_nf = FALSE, filter_na = FALSE, ad
     message("Replacing NA with 0.001 for Avg_Zscore_ and Z_lm_ columns for ranks")
     df <- df %>%
       mutate(
-        across(all_of(avg_zscore_cols), ~ ifelse(is.na(.), 0.001, .)),
-        across(all_of(z_lm_cols), ~ ifelse(is.na(.), 0.001, .))
+        across(all_of(avg_zscore_cols), ~ifelse(is.na(.), 0.001, .)),
+        across(all_of(z_lm_cols), ~ifelse(is.na(.), 0.001, .))
       )
   }
 
@@ -1009,9 +1009,9 @@ process_data <- function(df, variables, filter_nf = FALSE, filter_na = FALSE, ad
   if (rank) {
     message("Calculating ranks for Avg_Zscore_ and Z_lm_ columns")
     df <- df %>%
-      mutate(across(all_of(avg_zscore_cols), rank, .names = "Rank_{.col}", na.last = "keep"))
+      mutate(across(all_of(avg_zscore_cols), ~rank(., na.last = "keep"), .names = "Rank_{.col}"))
     df <- df %>%
-      mutate(across(all_of(z_lm_cols), rank, .names = "Rank_lm_{.col}", na.last = "keep"))
+      mutate(across(all_of(z_lm_cols), ~rank(., na.last = "keep"), .names = "Rank_lm_{.col}"))
   }
 
   return(df)