Merge branch 'devel'

Author: pimentel

R/shiny.R

@@ -819,7 +819,7 @@ sleuth_live <- function(obj, ...) {
     })
 
     output$hm_plot <- renderPlot ({
-        plot_cluster_hmap(hm_transcripts(), obj, input$hm_units, hm_func())
+        plot_transcript_heatmap(hm_transcripts(), obj, input$hm_units, hm_func())
     }, height = hm_plot_height)