fix: check if dat is matrix or dataframe

functions.R

@@ -42,8 +42,8 @@ writeTable <- function(dat, fileName = NULL, sepUser = '\t', rownames=TRUE, nThr
   if (is.null(fileName)){
     stop(paste0('ERROR: ', fileName, ', this file name is NULL'))
   }
-  if (file.exists(fileName)){
-    stop(paste0('ERROR: ', fileName, ', this file already exists'))
+  if (is.data.frame(dat) || is.matrix(dat)){
+    stop(paste0('ERROR: your data is not a dataframe or a matrix'))
   }