Prevent interactive variable collision in generate_plot

qhtcp-workflow/apps/r/calculate_interaction_zscores.R

@@ -394,10 +394,10 @@ generate_and_save_plots <- function(output_dir, file_name, plot_configs, grid_la
     plot_base <- ggplot(df, aes_mapping)
 
     # Function to generate the plot
-    generate_plot <- function(is_interactive) {
+    generate_plot <- function(interactive) {
       # Use appropriate helper function based on plot type
       plot <- switch(config$plot_type,
-        "scatter" = generate_scatter_plot(plot_base, config, is_interactive = is_interactive),
+        "scatter" = generate_scatter_plot(plot_base, config, is_interactive = interactive),
         "box" = generate_box_plot(plot_base, config),
         "density" = plot_base + geom_density(),
         "bar" = plot_base + geom_bar(),
@@ -479,7 +479,7 @@ generate_scatter_plot <- function(plot, config, is_interactive = FALSE) {
     )
   }
 
-  # Add the interactive `text` aesthetic if `is_interactive` is TRUE
+  # Add the interactive text aesthetic if `is_interactive` is TRUE
   if (is_interactive) {
     if (!is.null(config$delta_bg_point) && config$delta_bg_point) {
       plot <- plot + geom_point(
@@ -561,7 +561,7 @@ generate_scatter_plot <- function(plot, config, is_interactive = FALSE) {
     plot <- plot + scale_y_continuous(limits = config$ylim_vals)
   }
 
-  # Add annotations if provided
+  # Add annotations if specified
   if (!is.null(config$annotations)) {
     for (annotation in config$annotations) {
       plot <- plot + annotate("text", x = annotation$x, y = annotation$y, label = annotation$label)