plot size button

server.R

@@ -156,8 +156,54 @@ shinyServer
     validate(need(data16S(), ""))
     tags$div(
       style = "text-align:center",
-      title = "Download as RData",
-      downloadButton("downloadData", "Download", style = "color: black; background-color: gray90")
+      title = "Download file as RData",
+      downloadButton("downloadData", "Download RData file", style = "color: black; background-color: gray90")
+    )
+  })
+  
+  observeEvent(input$plotSize, {
+    showModal(
+      modalDialog(
+        title = "Setting plot size",
+        numericInput(
+          "plotWidth",
+          label = "Plot width : ",
+          value = 6,
+          min = 1,
+          max = 50
+        ),
+        numericInput(
+          "plotHeight",
+          label = "Plot height : ",
+          value = 6,
+          min = 1,
+          max = 50
+        ),
+        radioButtons(
+          "plotUnits",
+          label = "Units : ",
+          choices = list("in", "cm", "mm"),
+          selected = "cm",
+          inline = TRUE
+        ),
+        numericInput(
+          "plotDPI",
+          label = "Plot resolution : ",
+          value = 300,
+          min = 70,
+          max = 500,
+          step = 10
+        ),
+        selectInput(
+          "plotDevice",
+          label = "Plot device : ",
+          choices = list("eps", "ps", "tex", "pdf", "jpeg", "tiff", "png", "bmp", "svg"),
+          selected = "pdf"
+        ),
+        size = "s",
+        easyClose = TRUE,
+        footer = NULL
+      )
     )
   })
   

ui.R

@@ -76,7 +76,12 @@ shinyUI(dashboardPage(
     #     placeholder = "data.fasta"
     #   )
     # ),
-    uiOutput("downloadUI")
+    hr(),
+    uiOutput("downloadUI"),
+    tags$div(
+      align = "center",
+      actionButton("plotSize", label = "Plot size")
+    )
   ),
   dashboardBody(
     tabsetPanel(