From 452d9e41623a93449a13681d45dbe0f6687cc970 Mon Sep 17 00:00:00 2001 From: Bryan Roessler Date: Wed, 18 Sep 2024 14:35:43 -0400 Subject: [PATCH] Make rank a function in across() --- qhtcp-workflow/apps/r/calculate_interaction_zscores.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/qhtcp-workflow/apps/r/calculate_interaction_zscores.R b/qhtcp-workflow/apps/r/calculate_interaction_zscores.R index 2bf06e1b..68fed015 100644 --- a/qhtcp-workflow/apps/r/calculate_interaction_zscores.R +++ b/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)