#' ReformatDataUseTable
#'
#' @param re.PJ.gene.based
#'
#' @return
#' @export
#'
#' @examples
#' re.PJ.gene.based.testable.reformat.2<-ReformatDataUseTable(Re.PJ.selected.feature.FC.p)
#'
#' dim(re.PJ.gene.based.testable.reformat.2)
#'
#'head(re.PJ.gene.based.testable.reformat.2)
#'
ReformatDataUseTable <- function(re.PJ.gene.based) {
re<-re.PJ.gene.based
no.re.testable.index<-which(as.character(re$mostSigID)=="character(0)")
re2<-re[-no.re.testable.index,]
All.gene.id.based.on.sub_feature<-unique(unlist(strsplit(re2[,1],"\\+")))
All.gene.id.index<-rep(0,length(All.gene.id.based.on.sub_feature))
names(All.gene.id.index)=All.gene.id.based.on.sub_feature
reformat.gene.p<-do.call(rbind,sapply(All.gene.id.based.on.sub_feature, function(u,re2){
x<-re2[grep(u,re2[,1]),-1]
x<-as.data.frame(t(x))
#colnames(x)<-colnames(Data4Goterm)
#x
},re2))
re3<-as.data.frame(reformat.gene.p)
re3<-cbind(All.gene.id.based.on.sub_feature,re3)
colnames(re3)[1]="geneID"
return(re3)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.