R/fixTypes.R

In cstubben/pmcXML: Tools to parse full text XML documents from PMC Open Access

## keep attributes?

fixTypes<-function(x, stringsAsFactors=FALSE, ...){
   xx <-apply(x, 1, paste, collapse="\t")
   ## check if empty table 
  if(length(xx)==1 && xx==""){
       x
  }else{
     # remove internal new line characters
     xx <- gsub("\n", "", xx)
     zz <-textConnection(xx )
   ## use quote="" if double quotes in cells 
     y <- read.delim(zz, header=FALSE, stringsAsFactors=stringsAsFactors, quote="", ...)
     close(zz)
     names(y) <- names(x)
     y
   }
}