Hetamp download PNG instead of PDF

modules/tabClHier.R

@@ -164,7 +164,7 @@ clustHierUI <- function(id, label = "Hierarchical CLustering") {
                ),
                br(),
                
-               downPlotUI(ns('downPlotHier'), "Download PDF"),
+               downPlotUI(ns('downPlotHier'), "Download PNG"),
                actionButton(ns('butPlotHierHeatMap'), 'Plot!'),
                plotOutput(ns('outPlotHier'))
       ),

modules/tabClHierSpar.R

@@ -171,7 +171,7 @@ clustHierSparUI <- function(id, label = "Sparse Hierarchical CLustering") {
                br(),
                
                
-               downPlotUI(ns('downPlotHierSparHM'), "Download PDF"),
+               downPlotUI(ns('downPlotHierSparHM'), "Download PNG"),
                
                actionButton(ns('butPlotHierSparHeatMap'), 'Plot!'),
                plotOutput(ns('outPlotHierSpar'))