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

Move global vars to top of main()

Browse Source
This commit is contained in:
Bryan Roessler
2024-09-11 15:20:47 -04:00
parent cee290fd69
commit f4581d7fcb
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -586,6 +586,9 @@ main <- function() {
out_dir_qc <- file.path(exp_path, "zscores", "qc") out_dir_qc <- file.path(exp_path, "zscores", "qc")
dir.create(out_dir, recursive = TRUE, showWarnings = FALSE) dir.create(out_dir, recursive = TRUE, showWarnings = FALSE)
dir.create(out_dir_qc, recursive = TRUE, showWarnings = FALSE) dir.create(out_dir_qc, recursive = TRUE, showWarnings = FALSE)
variables <- c("L", "K", "r", "AUC") # fields to filter and calculate across
group_vars <- c("OrfRep", "conc_num", "conc_num_factor") # default fields to group by
message("Loading and filtering data") message("Loading and filtering data")
df <- load_and_process_data(args$easy_results_file, sd = exp_sd) df <- load_and_process_data(args$easy_results_file, sd = exp_sd)
@@ -612,9 +615,6 @@ main <- function() {
filter(., if_all(c(L), is.finite)) filter(., if_all(c(L), is.finite))
} }
variables <- c("L", "K", "r", "AUC") # fields to filter and calculate across
group_vars <- c("OrfRep", "conc_num", "conc_num_factor") # fields to group by
# Set some constants # Set some constants
max_conc <- max(df$conc_num_factor) max_conc <- max(df$conc_num_factor)
l_half_median <- (median(df_above_tolerance$L, na.rm = TRUE)) / 2 l_half_median <- (median(df_above_tolerance$L, na.rm = TRUE)) / 2