CreateAnnotationDataframe_hgnc <- function(expressionDF){
df <- data.frame(probe=row.names(expressionDF), Gene.Symbol=row.names(expressionDF))
row.names(df) <- df$Gene.Symbol
df
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.