diff --git a/qhtcp-workflow/apps/r/calculate_interaction_zscores.R b/qhtcp-workflow/apps/r/calculate_interaction_zscores.R
index 90491b19..1fa651ff 100644
--- a/qhtcp-workflow/apps/r/calculate_interaction_zscores.R
+++ b/qhtcp-workflow/apps/r/calculate_interaction_zscores.R
@@ -14,7 +14,7 @@ options(warn = 2)
 # Set the memory limit to 30GB (30 * 1024 * 1024 * 1024 bytes)
 soft_limit <- 30 * 1024 * 1024 * 1024
 hard_limit <- 30 * 1024 * 1024 * 1024
-rlimit_as(soft_limit, hard_limit)
+invisible(rlimit_as(soft_limit, hard_limit))
 
 # Constants for configuration
 plot_width <- 14
@@ -1339,8 +1339,8 @@ main <- function() {
 
       message("Generating rank plots")
       zscores_interactions_joined_filtered <- filter_data(
-        zscores_interactions_joined,
-        variables,
+        df = zscores_interactions_joined,
+        variables = interaction_vars,
         missing = TRUE,
         adjust = TRUE,
         rank = TRUE)