From 6f478fa63b011555eb53509e80d13307eb2790bf Mon Sep 17 00:00:00 2001
From: Midoux Cedric <cedric.midoux@irstea.fr>
Date: Tue, 4 Dec 2018 11:01:32 +0100
Subject: [PATCH] Revert "plot size button"
This reverts commit 9325f7cc045cbab705312ba2d6281e04303a2385.
---
server.R | 50 ++------------------------------------------------
ui.R | 7 +------
2 files changed, 3 insertions(+), 54 deletions(-)
diff --git a/server.R b/server.R
index c3c9072..553404c 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 ad6ce4f..94de056 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(
--
GitLab