Rollup before java debug

2024-08-23 14:39:16 -04:00
parent 3098a9dda5
commit b25dfb70b4
3 changed files with 167 additions and 57 deletions
--- a/workflow/apps/r/joinInteractExps.R
+++ b/workflow/apps/r/joinInteractExps.R
@@ -26,8 +26,8 @@ args <- parse_arguments()

 # Create an array for the zscores files
 get_zscores_files <- function(dirs) {
-  files <- sapply(dirs, function(study) {
-    file_path <- file.path(study, "zscores", "zscores_interaction.csv")
+  files <- sapply(dirs, function(exp) {
+    file_path <- file.path(exp, "zscores", "zscores_interaction.csv")
    if (file.exists(file_path)) file_path else NULL
  }, simplify = TRUE, USE.NAMES = FALSE)