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

Prevent interactive variable collision in generate_plot

Browse Source
This commit is contained in:
Bryan Roessler
2024-09-15 12:01:07 -04:00
parent 767694b8ac
commit 4f0c36fd66
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

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