From 28c9fda05136b790572a236208028b222ab54fc0 Mon Sep 17 00:00:00 2001
From: Bryan Roessler <bryanroessler@gmail.com>
Date: Mon, 16 Sep 2024 15:48:12 -0400
Subject: [PATCH] Rename variables arugment

---
 qhtcp-workflow/apps/r/calculate_interaction_zscores.R | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/qhtcp-workflow/apps/r/calculate_interaction_zscores.R b/qhtcp-workflow/apps/r/calculate_interaction_zscores.R
index f59ea4e9..08e4dcda 100644
--- a/qhtcp-workflow/apps/r/calculate_interaction_zscores.R
+++ b/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
       )