From 4667ea4675f2ec3f545c5376a4f942ae2d9615d7 Mon Sep 17 00:00:00 2001
From: Alexander_Kabui
Date: Tue, 29 Oct 2024 20:52:46 +0300
Subject: Refactor: remove hardcoded dir_path for control files.

---
 scripts/rqtl2_wrapper.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'scripts/rqtl2_wrapper.R')

diff --git a/scripts/rqtl2_wrapper.R b/scripts/rqtl2_wrapper.R
index ab3fa3e..f71fb08 100644
--- a/scripts/rqtl2_wrapper.R
+++ b/scripts/rqtl2_wrapper.R
@@ -66,7 +66,7 @@ genRandomFileName <- function(prefix, file_ext = ".txt") {
 
 # TODO create temp directory for this workspace pass this as argument
 
-control_file_path  <- file.path("/home/kabui",
+control_file_path  <- file.path(opt$directory,
                                 genRandomFileName(prefix = "control_", file_ext = ".json"))
 
 str_glue("Generated control file path is  {control_file_path}")
-- 
cgit 1.4.1