get kmeans controls
kmeansControlsUI(id)
id,
module ID
controls
kmeansControlsUI
x <- kmeansControlsUI("heatmap")