diff --git a/qhtcp-workflow/apps/r/calculate_interaction_zscores.R b/qhtcp-workflow/apps/r/calculate_interaction_zscores.R index fc35904f..3203c073 100644 --- a/qhtcp-workflow/apps/r/calculate_interaction_zscores.R +++ b/qhtcp-workflow/apps/r/calculate_interaction_zscores.R @@ -396,12 +396,12 @@ generate_and_save_plots <- function(out_dir, file_name, plot_configs, grid_layou plot_base # default case if no type matches ) - # Apply additional settings if provided + # Apply additional settings if (!is.null(config$legend_position)) { plot <- plot + theme(legend.position = config$legend_position) } - # Add title and labels if provided + # Add title and labels if (!is.null(config$title)) { plot <- plot + ggtitle(config$title) } @@ -414,7 +414,7 @@ generate_and_save_plots <- function(out_dir, file_name, plot_configs, grid_layou # Apply scale_color_discrete(guide = FALSE) when color_var is NULL if (is.null(config$color_var)) { - plot <- plot + scale_color_discrete(guide = FALSE) + plot <- plot + scale_color_discrete(guide = "none") } # Add interactive tooltips for plotly