heatmap selection functionality
getSelHeat(data = NULL, input = NULL)
data,
selected genes
input,
input params
plot
x <- getSelHeat()