geex/source/geex.add.html.tag.r

In zhezhangsh/awsomics:

# Add HTML tag and color to a message
geex.html.msg<-function(msg, color='#8888FF') {
 paste('<font color="', color, '">', msg, '</font>', sep='');
}

geex.html.gene.name<-function(rid, selected, cll) {
  if (identical(NA, cll)) list(h3(msg.nocollection), br(), br()) else if (selected & length(rid)==0)  list(h3(""), br(), br()) else if (length(rid)==0) list(h3(msg.nogene), br(), br()) else {
    rid<-CleanHtmlTags(rid);
    gn<-rid[rid %in% rownames(cll$gene)];
    if (length(gn) == 0) list(h3(msg.nogene), br(), br()) else {
      gn<-cll$gene[gn, 'Symbol'];
      list(h3(HTML(paste("Gene", geex.html.msg(paste(gn, collapse=' / '))))), br(), br())
    }
  } 
}

geex.html.gene.name2<-function(gn, cll) {
  if (identical(NA, cll)) list(h3(msg.nocollection), br(), br()) else {
    if (nrow(gn) == 0) list(h3(msg.nogene), br(), br()) else {
      gn<-gn[, 'Name'];
      list(h3(HTML(paste("Gene", geex.html.msg(paste(gn, collapse=' / '))))), br(), br())
    }
  } 
}

geex.select.gene<-function(rid, cll) {
  rid<-CleanHtmlTags(rid);
  gn<-rid[rid %in% rownames(cll$gene)];
  #gn<-gn[gn %in% rownames(ds$data$logged)];
  cll$anno[gn, ];
}