Commit b0d2c309 authored by Midoux Cedric's avatar Midoux Cedric

switch button

parent b899b6ec
...@@ -352,6 +352,7 @@ observeEvent(input$transformData, { ...@@ -352,6 +352,7 @@ observeEvent(input$transformData, {
if (class(transform_physeq()) == "phyloseq") { if (class(transform_physeq()) == "phyloseq") {
message(paste("[Easy16S] Transfom data :", input$transformFun)) message(paste("[Easy16S] Transfom data :", input$transformFun))
shinyWidgets::updateSwitchInput(session = session, inputId = "useTransf", disabled = FALSE)
shinyWidgets::updateSwitchInput(session = session, inputId = "useTransf", value = TRUE) shinyWidgets::updateSwitchInput(session = session, inputId = "useTransf", value = TRUE)
removeModal() removeModal()
} else { } else {
......
...@@ -16,33 +16,38 @@ source("panels/Help-ui.R", local = TRUE) ...@@ -16,33 +16,38 @@ source("panels/Help-ui.R", local = TRUE)
shinyUI(dashboardPage( shinyUI(dashboardPage(
dashboardHeader(title = "Easy16S"), dashboardHeader(title = "Easy16S"),
dashboardSidebar( dashboardSidebar(
actionButton("dataButton", actionButton("dataButton",
"Select your data", "Select your data",
icon = icon("upload"), icon = icon("upload"),
style = "width: 80% ; color: black ; background-color: gray90"), width = 200
actionButton("filterButton", ),
"Select some samples", actionButton("filterButton",
icon = icon("filter"), "Select some samples",
style = "width: 80% ; color: black ; background-color: gray90"), icon = icon("filter"),
actionButton("transformButton", width = 200
"Transform abundance", ),
icon = icon("square-root-alt"), actionButton("transformButton",
style = "width: 80% ; color: black ; background-color: gray90"), "Transform abundance",
shinyWidgets::switchInput("useTransf", icon = icon("square-root-alt"),
value = FALSE, width = 200
label = "Transformed Data", ),
#inline = TRUE, shinyWidgets::switchInput("useTransf",
size = "mini", value = FALSE,
labelWidth = "100%" label = HTML("Transformed data"),
), disabled = TRUE,
actionButton("downloadButton", size = "mini",
"Download data", width = 200
icon = icon("download"), ),
style = "width: 80% ; color: black ; background-color: gray90"), actionButton("downloadButton",
actionButton("plotButton", "Download data",
"Download last plot", icon = icon("download"),
icon = icon("file-image"), width = 200
style = "width: 80% ; color: black ; background-color: gray90"), ),
actionButton("plotButton",
"Download last plot",
icon = icon("file-image"),
width = 200
),
sidebarMenu( sidebarMenu(
menuItem("Summary", tabName = "Summary", icon = icon("dna")), menuItem("Summary", tabName = "Summary", icon = icon("dna")),
menuItem("Tables", icon = icon("table"), menuItem("Tables", icon = icon("table"),
......
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