Prevent interactive variable collision in generate_plot

qhtcp-workflow/apps/r/calculate_interaction_zscores.R

@@ -425,10 +425,10 @@ generate_and_save_plots <- function(output_dir, file_name, plot_configs, grid_la
     }
 
     # Generate the static plot
-    static_plot <- generate_plot(is_interactive = FALSE)
+    static_plot <- generate_plot(interactive = FALSE)
 
     # Generate the interactive plot
-    interactive_plot <- generate_plot(is_interactive = TRUE)
+    interactive_plot <- generate_plot(interactive = TRUE)
 
     # Convert to plotly object
     plotly_plot <- ggplotly(interactive_plot, tooltip = "text")