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

plot size button

parent 9361dabf
......@@ -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
)
)
})
......
......@@ -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(
......
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