Can now set rnames by using index or existing colname

functions.R

 # Functions
-readTable <- function(dataName, sepUser = '\t', rnames = TRUE, header = TRUE, nThread=1, dec = "."){
+readTable <- function(dataName, sepUser = '\t', rnames = 1, header = TRUE, nThread=1, dec = "."){
   #' Read a dataframe text file 
   #'
   #' @description WRAPPER : Read a text file using threading with data.table package
@@ -11,11 +11,17 @@ readTable <- function(dataName, sepUser = '\t', rnames = TRUE, header = TRUE, nT
   require(data.table)
   setDTthreads(threads=1)
   dat <- as.data.frame(data.table::fread(dataName, sep = sepUser, header = header, nThread = nThread,dec = dec))
-  if(rnames){
-    rownames(dat) <- as.character(dat[,1])
-    message('row names have been set up')
-  }else{
-    message('row names haven\'t been set up')
+  if (rnames == 0){ return(dat) }
+  if (is.integer(rnames)){
+    rownames(dat) <- as.character(dat[, rnames])
+    dat <- dat[, -rnames]
+  }
+  if (is.charater(rnames)){
+    if (!(rnames %in% colnames(dat))){
+      stop(paste0(rnames, ' is not a column name'))
+    }
+    rownames(dat) <- as.character(dat[, rnames])
+    dat <- dat[, colnames(dat) != rnames]
   }
   return(dat)
 }