ggsave (cm)

panels/dataInput.R

@@ -385,8 +385,8 @@ plotDownload <- function() {
     title = "Download last modified plot",
     size = "s",
     textInput("plotName", "File name : ", value = "plot"),
-    numericInput("plotWidth", "Width : ", value = 7),
-    numericInput("plotHeight", "Height : ", value = 7),
+    numericInput("plotWidth", "Width (cm) : ", value = 7),
+    numericInput("plotHeight", "Height (cm) : ", value = 7),
     numericInput("plotDPI", "DPI : ", value = 300),
     radioButtons("plotFormat", "File format : ", choices = c("png", "pdf", "jpeg", "svg", "wmf"), selected = "png", inline = TRUE),
     footer = tagList(modalButton("Cancel"),
@@ -397,7 +397,7 @@ plotDownload <- function() {
 
 output$okPlot <- downloadHandler(
   filename = function() {paste(input$plotName, input$plotFormat, sep = ".")},
-  content = function(file) {ggsave(file, width = input$plotWidth, height = input$plotHeight, dpi = input$plotDPI)}
+  content = function(file) {ggsave(file, width = input$plotWidth, height = input$plotHeight, dpi = input$plotDPI, units = "cm")}
 )
 
 # output$rarefactionMin <- renderText({