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

Revert "plot size button"

This reverts commit 9325f7cc.
No related merge requests found
Showing with 3 additions and 54 deletions
+3 -54
......@@ -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")
)
})
......
......@@ -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(
......
Supports Markdown
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