Nothing
library(shiny)
library(rcellminer)
#library(d3heatmap)
library(heatmaply)
library(gplots)
shinyServer(
function(input, output){
## output$heatmap <- renderD3heatmap({
output$heatmap <- renderPlotly({
genes <- unlist(strsplit(input$geneList, " "))
expData <- getAllFeatureData(rcellminerData::molData)[["exp"]]
# d3heatmap(expData[genes, 1:20], scale="column", colors="YlOrRd")
heatmaply(expData[genes, 1:20], scale="row", grid_gap = 0.5, cellnote_color="black", colors= colorpanel(75,low="blue",mid="white",high="red"),fontsize_col = 8 ,fontsize_row = 8)
})
}
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.