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")
|
|
}
|