Une mise-à-jour de Gitlab vers la version 14.0 est prévue le 24 juin entre 14:00 et 15:00. Le service sera inaccessible ou instable pendant cette période. Merci de votre compréhension.

Commit 6f478fa6 authored by Midoux Cedric's avatar Midoux Cedric
Browse files

Revert "plot size button"

This reverts commit 9325f7cc.
parent 96394afa
...@@ -156,54 +156,8 @@ shinyServer ...@@ -156,54 +156,8 @@ shinyServer
validate(need(data16S(), "")) validate(need(data16S(), ""))
tags$div( tags$div(
style = "text-align:center", style = "text-align:center",
title = "Download file as RData", title = "Download as RData",
downloadButton("downloadData", "Download RData file", style = "color: black; background-color: gray90") downloadButton("downloadData", "Download", 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,12 +76,7 @@ shinyUI(dashboardPage( ...@@ -76,12 +76,7 @@ shinyUI(dashboardPage(
# placeholder = "data.fasta" # placeholder = "data.fasta"
# ) # )
# ), # ),
hr(), uiOutput("downloadUI")
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