|
|
@@ -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) {
|
|
|
+
|
|
|
+ message("Generating html and pdf plots for: ", file_name, ".pdf|html")
|
|
|
+
|
|
|
plots <- lapply(plot_configs, function(config) {
|
|
|
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
|
|
|
aes_mapping <- if (is.null(config$y_var)) {
|
|
|
aes(x = !!sym(config$x_var), color = as.factor(!!sym(config$color_var)))
|
