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

Re-add additional plotting output

Browse Source
This commit is contained in:
Bryan Roessler
2024-09-12 04:18:28 -04:00
parent 5afc46c387
commit dbe8b1a15b
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -339,9 +339,15 @@ calculate_interaction_scores <- function(df, max_conc, variables, group_vars = c
} }
generate_and_save_plots <- function(output_dir, file_name, plot_configs, grid_layout = NULL) { generate_and_save_plots <- function(output_dir, file_name, plot_configs, grid_layout = NULL) {
message("Generating html and pdf plots for: ", file_name, ".pdf|html")
plots <- lapply(plot_configs, function(config) { plots <- lapply(plot_configs, function(config) {
df <- config$df df <- config$df
print(df %>% select(any_of(c("OrfRep", "Plate", "scan", "Col", "Row", "num", "OrfRep", "conc_num", "conc_num_factor",
"delta_bg_tolerance", "delta_bg", "Gene", "L", "K", "r", "AUC", "NG", "DB"))), n = 100)
# Define aes mapping based on the presence of y_var # Define aes mapping based on the presence of y_var
aes_mapping <- if (is.null(config$y_var)) { aes_mapping <- if (is.null(config$y_var)) {
aes(x = !!sym(config$x_var), color = as.factor(!!sym(config$color_var))) aes(x = !!sym(config$x_var), color = as.factor(!!sym(config$color_var)))