From 9325f7cc045cbab705312ba2d6281e04303a2385 Mon Sep 17 00:00:00 2001
From: Midoux Cedric <cedric.midoux@irstea.fr>
Date: Wed, 28 Nov 2018 15:07:10 +0100
Subject: [PATCH] plot size button
---
server.R | 50 ++++++++++++++++++++++++++++++++++++++++++++++++--
ui.R | 7 ++++++-
2 files changed, 54 insertions(+), 3 deletions(-)
diff --git a/server.R b/server.R
index 553404c..c3c9072 100644
--- a/server.R
+++ b/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
+ )
)
})
diff --git a/ui.R b/ui.R
index 94de056..ad6ce4f 100644
--- a/ui.R
+++ b/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(
--
GitLab