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

Skip empty QC plots

Browse Source
This commit is contained in:
Bryan Roessler
2024-09-01 17:04:49 -04:00
parent 6b1428a384
commit c6c4870d46
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
workflow/apps/r/calculate_interaction_zscores5.R
View File

@@ -193,6 +193,13 @@ generate_plot <- function(df, x_var, y_var = NULL, plot_type, color_var = "conc_
generate_and_save_plots <- function(df, output_dir, prefix, variables, include_qc = FALSE) { generate_and_save_plots <- function(df, output_dir, prefix, variables, include_qc = FALSE) {
plots <- list() plots <- list()
if (nrow(df) == 0) {
message("The \"", deparse(substitute(df)), "\" dataframe is empty, skipping plots")
return()
}
message("Generating plots for \"", deparse(substitute(df)), "\" dataframe")
for (var in variables) { for (var in variables) {
scatter_plot <- scatter_plot <-
@@ -269,7 +276,7 @@ save_plots <- function(file_name, plot_list, output_dir) {
# Save to HTML with horizontal legend orientation # Save to HTML with horizontal legend orientation
lapply(names(plot_list), function(plot_name) { lapply(names(plot_list), function(plot_name) {
message("Processing plot: ", plot_name) message("Generating plot: ", plot_name)
pgg <- tryCatch({ pgg <- tryCatch({
suppressWarnings(ggplotly(plot_list[[plot_name]]) %>% suppressWarnings(ggplotly(plot_list[[plot_name]]) %>%
layout(legend = list(orientation = "h"))) layout(legend = list(orientation = "h")))