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

Re-enable disabled plotting

Browse Source
This commit is contained in:
Bryan Roessler
2024-10-08 16:02:53 -04:00
parent 96b7ec1fa1
commit 598e09d25c
1 changed files with 25 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -656,10 +656,10 @@ generate_and_save_plots <- function(out_dir, filename, plot_configs, page_width
) )
} }
#plotly_plot <- suppressWarnings(plotly::ggplotly(plot)) plotly_plot <- suppressWarnings(plotly::ggplotly(plot))
static_plots[[i]] <- plot static_plots[[i]] <- plot
#plotly_plots[[i]] <- plotly_plot plotly_plots[[i]] <- plotly_plot
} }
grid_layout <- group$grid_layout grid_layout <- group$grid_layout
@@ -696,12 +696,12 @@ generate_and_save_plots <- function(out_dir, filename, plot_configs, page_width
dev.off() dev.off()
# out_html_file <- file.path(out_dir, paste0(filename, ".html")) out_html_file <- file.path(out_dir, paste0(filename, ".html"))
# message("Saving combined HTML file: ", out_html_file) message("Saving combined HTML file: ", out_html_file)
# htmltools::save_html( htmltools::save_html(
# htmltools::tagList(plotly_plots), htmltools::tagList(plotly_plots),
# file = out_html_file file = out_html_file
# ) )
} }
generate_scatter_plot <- function(plot, config) { generate_scatter_plot <- function(plot, config) {
@@ -1535,23 +1535,23 @@ main <- function() {
plot_configs <- list( plot_configs <- list(
list(out_dir = out_dir_qc, filename = "L_vs_K_before_quality_control", list(out_dir = out_dir_qc, filename = "L_vs_K_before_quality_control",
plot_configs = l_vs_k_plot_configs, page_width = 12, page_height = 8) plot_configs = l_vs_k_plot_configs, page_width = 12, page_height = 8),
# list(out_dir = out_dir_qc, filename = "frequency_delta_background", list(out_dir = out_dir_qc, filename = "frequency_delta_background",
# plot_configs = frequency_delta_bg_plot_configs, page_width = 12, page_height = 8), plot_configs = frequency_delta_bg_plot_configs, page_width = 12, page_height = 8),
# list(out_dir = out_dir_qc, filename = "L_vs_K_above_threshold", list(out_dir = out_dir_qc, filename = "L_vs_K_above_threshold",
# plot_configs = above_threshold_plot_configs, page_width = 12, page_height = 8), plot_configs = above_threshold_plot_configs, page_width = 12, page_height = 8),
# list(out_dir = out_dir_qc, filename = "plate_analysis", list(out_dir = out_dir_qc, filename = "plate_analysis",
# plot_configs = plate_analysis_plot_configs, page_width = 14, page_height = 9), plot_configs = plate_analysis_plot_configs, page_width = 14, page_height = 9),
# list(out_dir = out_dir_qc, filename = "plate_analysis_boxplots", list(out_dir = out_dir_qc, filename = "plate_analysis_boxplots",
# plot_configs = plate_analysis_boxplot_configs, page_width = 18, page_height = 9), plot_configs = plate_analysis_boxplot_configs, page_width = 18, page_height = 9),
# list(out_dir = out_dir_qc, filename = "plate_analysis_no_zeros", list(out_dir = out_dir_qc, filename = "plate_analysis_no_zeros",
# plot_configs = plate_analysis_no_zeros_plot_configs, page_width = 14, page_height = 9), plot_configs = plate_analysis_no_zeros_plot_configs, page_width = 14, page_height = 9),
# list(out_dir = out_dir_qc, filename = "plate_analysis_no_zeros_boxplots", list(out_dir = out_dir_qc, filename = "plate_analysis_no_zeros_boxplots",
# plot_configs = plate_analysis_no_zeros_boxplot_configs, page_width = 18, page_height = 9), plot_configs = plate_analysis_no_zeros_boxplot_configs, page_width = 18, page_height = 9),
# list(out_dir = out_dir_qc, filename = "L_vs_K_for_strains_2SD_outside_mean_K", list(out_dir = out_dir_qc, filename = "L_vs_K_for_strains_2SD_outside_mean_K",
# plot_configs = l_outside_2sd_k_plot_configs, page_width = 10, page_height = 8), plot_configs = l_outside_2sd_k_plot_configs, page_width = 10, page_height = 8),
# list(out_dir = out_dir_qc, filename = "delta_background_vs_K_for_strains_2SD_outside_mean_K", list(out_dir = out_dir_qc, filename = "delta_background_vs_K_for_strains_2SD_outside_mean_K",
# plot_configs = delta_bg_outside_2sd_k_plot_configs, page_width = 10, page_height = 8) plot_configs = delta_bg_outside_2sd_k_plot_configs, page_width = 10, page_height = 8)
) )
# Parallelize background and quality control plot generation # Parallelize background and quality control plot generation