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