update if-else pattern

Author: ahmig

workflow/scripts/report/pairwise_trajectory_correlation_data.R

@@ -51,7 +51,7 @@ log_info("Saving table of frequencies")
 write.csv(all_variants_wider, snakemake@output[["table"]])
 
 log_info("Filtering variant columns by unique values and amplitude thresholds")
-combine_f <- ifelse(snakemake@params$filter_combine == "all", all, any)
+combine_f <- if (snakemake@params$filter_combine == "all") all else any
 filtered <- all_variants_wider %>%
   select(
     where(