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

Use if_all

Browse Source
This commit is contained in:
Bryan Roessler
2024-09-25 16:59:52 -04:00
parent cbe363e8ad
commit a4d08ad1a2
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1043,7 +1043,7 @@ main <- function() {
df_na_stats <- ss$df_with_stats df_na_stats <- ss$df_with_stats
write.csv(df_na_ss, file = file.path(out_dir, "summary_stats_all_strains.csv"), row.names = FALSE) write.csv(df_na_ss, file = file.path(out_dir, "summary_stats_all_strains.csv"), row.names = FALSE)
# For plotting (ggplot warns on NAs) # For plotting (ggplot warns on NAs)
df_na_stats_filtered <- df_na_stats %>% filter(across(all_of(summary_vars), is.finite)) df_na_stats_filtered <- df_na_stats %>% filter(if_all(all_of(summary_vars), is.finite))
df_na_stats <- df_na_stats %>% df_na_stats <- df_na_stats %>%
mutate( mutate(