library(canvasXpress)
library(canvasXpress.data)
library(glue)
library(htmlwidgets)
library(limma)
# dataset is from canvasxpress.data
g_GSE9750 <- list(x = GSE9750_sample_annot,
y = GSE9750_expression,
z = GSE9750_gene_details)
# "see" NA values for the metadata when charting/grouping/etc.
g_GSE9750$x[is.na(g_GSE9750$x)] <- "<NA>"
# custom sorting for gene drop-down
g_geneChoices <- setNames(rownames(g_GSE9750$y), g_GSE9750$z[rownames(g_GSE9750$y), 'Symbol'])
g_geneChoices.sort <- g_geneChoices[sort(names(g_geneChoices))]
g_geneChoices.splt <- grep('^A', names(g_geneChoices.sort))[1]
g_geneChoices <- g_geneChoices.sort[c(g_geneChoices.splt:length(g_geneChoices), 1:(g_geneChoices.splt - 1))]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.