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