Commit 9325f7cc authored by Midoux Cedric's avatar Midoux Cedric

plot size button

parent 9361dabf
...@@ -156,8 +156,54 @@ shinyServer ...@@ -156,8 +156,54 @@ shinyServer
validate(need(data16S(), "")) validate(need(data16S(), ""))
tags$div( tags$div(
style = "text-align:center", style = "text-align:center",
title = "Download as RData", title = "Download file as RData",
downloadButton("downloadData", "Download", style = "color: black; background-color: gray90") 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
)
) )
}) })
......
...@@ -76,7 +76,12 @@ shinyUI(dashboardPage( ...@@ -76,7 +76,12 @@ shinyUI(dashboardPage(
# placeholder = "data.fasta" # placeholder = "data.fasta"
# ) # )
# ), # ),
uiOutput("downloadUI") hr(),
uiOutput("downloadUI"),
tags$div(
align = "center",
actionButton("plotSize", label = "Plot size")
)
), ),
dashboardBody( dashboardBody(
tabsetPanel( tabsetPanel(
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment