feature: assert dat type and filename is not null

functions.R

@@ -35,12 +35,14 @@ writeTable <- function(dat, fileName = NULL, sepUser = '\t', rownames=TRUE, nThr
   #' @description WRAPPER : Write a dataframe using threading with data.table package
   #' to a separated text file
 
+  # LIBRARIES
   require(data.table)
+
+  # TESTS
+  assert("You must submit a dataframe or a matrix", is.data.frame(dat) || is.matrix(dat))
+  assert("You must submit a file name", !is.null(fileName))
+
   setDTthreads(threads=1)
-  if(is.null(fileName)){
-    fileName <- paste0('default.', ifelse(sepUser == '\t', 'tsv', 'csv'))
-    print(paste0(fileName, ' has been written to : ', getwd()))
-  }
   if (rownames){
     datRowNames <- data.frame(rownames(dat))
     dat <- cbind(datRowNames, dat)