md2csv<-function(text, rm_blank=T){
  text<-strsplit(text, "\n")[[1]]
  text<-gsub("^[ |]*|[|][ ]*$","",text)
  if(rm_blank){text<-gsub(" ","",text)}
  text<-gsub("[|]",",",text)
  return(cat(text,sep = "\n"))
}