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="")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.