Revert "plot size button"

This reverts commit 9325f7cc.

server.R

@@ -156,54 +156,8 @@ shinyServer
     validate(need(data16S(), ""))
     tags$div(
       style = "text-align:center",
-      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
-      )
+      title = "Download as RData",
+      downloadButton("downloadData", "Download", style = "color: black; background-color: gray90")
     )
   })
   

ui.R

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