R/print.metaboSet.R

In kroemerlab/GRMeta: Processing MetX data

print.metaboSet<-function(x,length=12){
  
  cat("** ",length(x$Analyte)," analyte",ifelse(length(x$Analyte)==1,"","s"),": ",paste(names(table(x$Annot$Method)),"(",(table(x$Annot$Method)),") ",sep=""),"\n",sep="")
  cat("** Annotation level: ",paste(names(table(x$Annot$LevelAnnot)),"(",(table(x$Annot$LevelAnnot)),") ",sep=""),"\n",sep="")
  cat(paste0("** Std: ",sum(x$Annot$IsSTD),"/",sum(!x$Annot$IsSTD)," Iso: ",sum(x$Annot$IsISO),"/",sum(!x$Annot$IsISO)),"\n",sep="")

  if("fluxoSet"%in%class(x)){
    tab=as.matrix(table(x$Annot$Iso,x$Annot$LevelAnnot))
    for(i in rownames(tab))
      cat("  M",i,": ",paste(colnames(tab),"(",tab[i,],") ",sep="")," ",sep="")
    cat("\n")
  }
  
  
  n=min(length(x$Analyte),length)
  top=x$Analyte[1:n]
  add=length(x$Analyte)-n;if(add>0) top=c(top,paste("+",add,"entries"))
#  print.default(top)
#cat("\n")
  cat("** ",length(x$Sid)," sample",ifelse(length(x$Sid)==1,"","s"),": ",paste(names(table(x$Meta$sType)),"(",(table(x$Meta$sType)),") ",sep=""),"\n",sep="")
  n=min(length(x$Sid),length)
  top=x$Sid[1:n]
  add=length(x$Sid)-n;if(add>0) top=c(top,paste("+",add,"entries"))
#  print.default(top)
#  cat("\n")
  cat("** ",length(x$Data)," data matri",ifelse(length(x$Data)==1,"x","ces"),": ",paste(names(x$Data),collapse=" "),"\n",sep="")
  
}