fix: readTable can now handle one column df

functions.R

@@ -17,18 +17,14 @@ readTable <- function(dataName, sepUser = '\t', rnames = 1, header = TRUE, nThre
       stop(paste0('ERROR: ', rnames, ', is not an integer'))
     }
     rownames(dat) <- as.character(dat[, rnames])
-    if (ncol(dat) > 2) {
-      dat <- dat[, -rnames]
-    }
+    dat <- dat[, -rnames, drop = FALSE]
   }
   if (is.character(rnames)){
     if (!(rnames %in% colnames(dat))){
       stop(paste0('ERROR: ', rnames, ', is not an existing column name'))
     }
     rownames(dat) <- as.character(dat[, rnames])
-    if (ncol(dat) > 2) {
-      dat <- dat[, colnames(dat) != rnames]
-    }
+    dat <- dat[, colnames(dat) != rnames, drop = FALSE]
   }
   return(dat)
 }