bryan/hartman-server
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Make rank a function in across()

Browse Source
This commit is contained in:
Bryan Roessler
2024-09-18 14:35:43 -04:00
parent 9e8a7e9361
commit 452d9e4162
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
qhtcp-workflow/apps/r/calculate_interaction_zscores.R
View File

@@ -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") message("Replacing NA with 0.001 for Avg_Zscore_ and Z_lm_ columns for ranks")
df <- df %>% df <- df %>%
mutate( mutate(
across(all_of(avg_zscore_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, .)) 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) { if (rank) {
message("Calculating ranks for Avg_Zscore_ and Z_lm_ columns") message("Calculating ranks for Avg_Zscore_ and Z_lm_ columns")
df <- df %>% 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 %>% 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) return(df)