diff --git a/server.R b/server.R index c3c907229e6e8ecd5b084bbffb8626bd17683dd7..553404c9a65a9bd534c67e02b7dc9ecaaf3a803f 100644 --- a/server.R +++ b/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") ) }) diff --git a/ui.R b/ui.R index ad6ce4f0b2b3a7e775ef2996a1a3d58eb6b2d906..94de056697e8f0a02bb575239d8a78b7ed9b9693 100644 --- a/ui.R +++ b/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(