Now verify is file exists

functions.R

@@ -5,6 +5,9 @@ readTable <- function(dataName, sepUser = '\t', rnames = TRUE, header = TRUE, nT
   #' @description WRAPPER : Read a text file using threading with data.table package
   #' and convert it to a dataframe and speicify rownames
 
+  if (!(file.exists(dataName))){
+    stop(paste0(dataName, ' doesn\'t exist'))
+  }
   require(data.table)
   setDTthreads(threads=1)
   dat <- as.data.frame(data.table::fread(dataName, sep = sepUser, header = header, nThread = nThread,dec = dec))