Missing commenting on test lines

Author: aoumess

R/EaCoN_functions.R

@@ -1986,18 +1986,17 @@ ASCN.ff.Batch <- function(RDS.files = list.files(path = getwd(), pattern = "\\.S
 ## Generate the HTML report
 Annotate <- function(data = NULL, refGene.table = NULL, targets.table = NULL, report = TRUE, author.name = "", out.dir = getwd(), solo = FALSE, ldb = "/mnt/data_cigogne/bioinfo/") {
 
-  # setwd("/home/job/WORKSPACE/EaCoN_tests/WES/AlexandreLefranc/Results/ALEX1/ASCAT/L2R")
-  setwd("/home/job/Documents/ROSCOFF/Roscoff_2018/TP_CNV/WES/REDUX/A18R.11.17.18/ASCAT/L2R")
-  data <- readRDS("A18R.11.17.18.SEG.ASCAT.RDS")
-  targets.table <- NULL
-  out.dir <- getwd()
-  refGene.table = NULL
-  solo = FALSE
-  report = TRUE
-  ldb = "/mnt/data_cigogne/bioinfo/"
-  source("/home/job/git_gustaveroussy/EaCoN/R/mini_functions.R")
-  source("/home/job/git_gustaveroussy/EaCoN/R/plot_functions.R")
-  require(foreach)
+  # setwd("/home/job/Documents/ROSCOFF/Roscoff_2018/TP_CNV/WES/REDUX/A18R.11.17.18/ASCAT/L2R")
+  # data <- readRDS("A18R.11.17.18.SEG.ASCAT.RDS")
+  # targets.table <- NULL
+  # out.dir <- getwd()
+  # refGene.table = NULL
+  # solo = FALSE
+  # report = TRUE
+  # ldb = "/mnt/data_cigogne/bioinfo/"
+  # source("/home/job/git_gustaveroussy/EaCoN/R/mini_functions.R")
+  # source("/home/job/git_gustaveroussy/EaCoN/R/plot_functions.R")
+  # require(foreach)
 
   oridir <- getwd()