Rename variables arugment

qhtcp-workflow/apps/r/calculate_interaction_zscores.R

@@ -579,7 +579,7 @@ generate_interaction_plot_configs <- function(df, variables) {
     AUC = c(-6500, 6500)
   )
 
-  df_filtered <- filter_data(df, variables, missing = TRUE, limits_map)
+  df_filtered <- filter_data(df, variables, missing = TRUE, limits_map = limits_map)
 
   # Define annotation label functions
   generate_annotation_labels <- function(df, var, annotation_name) {
@@ -1210,7 +1210,7 @@ main <- function() {
       # Generate rank plots for L and K using standard ranks
       rank_plot_configs <- generate_rank_plot_configs(
         df = zscores_interactions,
-        interaction_vars = interaction_vars,
+        variables = interaction_vars,
         is_lm = FALSE,
         adjust = TRUE
       )
@@ -1223,7 +1223,7 @@ main <- function() {
       # Generate rank plots for L and K using linear model (`lm`) ranks
       rank_lm_plot_configs <- generate_rank_plot_configs(
         df = zscores_interactions,
-        interaction_vars = interaction_vars,
+        variables = interaction_vars,
         is_lm = TRUE,
         adjust = TRUE
       )
@@ -1261,7 +1261,7 @@ main <- function() {
       message("Generating filtered ranked plots")
       rank_plot_filtered_configs <- generate_rank_plot_configs(
         df = zscores_interactions_filtered,
-        interaction_vars = interaction_vars,
+        variables = interaction_vars,
         is_lm = FALSE,
         adjust = FALSE
       )
@@ -1272,7 +1272,7 @@ main <- function() {
       message("Generating filtered ranked linear model plots")
       rank_plot_lm_filtered_configs <- generate_rank_plot_configs(
         df = zscores_interactions_filtered,
-        interaction_vars = interaction_vars,
+        variables = interaction_vars,
         is_lm = TRUE,
         adjust = FALSE
       )