bryan/hartman-server
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Use updated guide term

Browse Source
This commit is contained in:
Bryan Roessler
2024-09-18 03:40:00 -04:00
parent 3251c8f879
commit eb3ed1470c
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
qhtcp-workflow/apps/r/calculate_interaction_zscores.R
View File

@@ -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 plot_base # default case if no type matches
) )
# Apply additional settings if provided # Apply additional settings
if (!is.null(config$legend_position)) { if (!is.null(config$legend_position)) {
plot <- plot + theme(legend.position = 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)) { if (!is.null(config$title)) {
plot <- plot + ggtitle(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 # Apply scale_color_discrete(guide = FALSE) when color_var is NULL
if (is.null(config$color_var)) { 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 # Add interactive tooltips for plotly