CitFuns/R/tab2md.R

tab2md<-function(table){
  samples_csv<-table
  table<-apply(table, 1, paste, collapse="|")
  table<-gsub("^","|",table)
  table<-gsub("$","|",table)
  table<-c(paste0("|",paste(colnames(samples_csv), collapse="|"),"|"),
          paste0("|",paste(rep("---",ncol(samples_csv)), collapse="|"),"|"),
          table)
  cat(table, sep="\n")
}