only one button

server.R

@@ -16,6 +16,10 @@ server <- function(input, output, session) {
   js$disableTab("NETWORK_EXPLORATION")
   js$disableTab("MULTI-OMICS_ANALYSIS")
   
+  observeEvent(input$LoadExample == 'No',{
+    click("GO_SET_ADVANCED")
+  })
+  
   observeEvent(input$enableTabulations, {
     # enable NETWORK_EXPLORATION when clicking the button
     js$enableTab("NETWORK_EXPLORATION")

server_function/SERVER_Data_Upload.R

@@ -31,10 +31,6 @@ sampleAnnot <- reactive({
         updateCheckboxInput(session, "Omic3", value= FALSE)
 
     }else{
-      updateTabsetPanel(session, "PAGE1", "ADVANCED")
-      updateTabsetPanel(session, "PAGE1", "MAIN")
-      
-      click("goPrevalence")
       validate(
         need(input$file2$datapath != "", "Please select a data set")
       )
@@ -106,7 +102,7 @@ sampleAnnot1 <- reactive({
 
 # Data Upload
 
-exprDat <- eventReactive(input$goPrevalence, {
+exprDat <- eventReactive(input$GO_SET_ADVANCED, {
   if (input$LoadExample == "Example1"){
     expressionData<-"data/data_breast/mirna.csv" #expression file path
     exprDat <- read.csv(expressionData, sep = ",", header = TRUE, row.names = 1)
@@ -289,7 +285,7 @@ exprDat_present <- reactive({
 })
 
 
-exprDatSec <- eventReactive(input$goPrevalence1, {
+exprDatSec <- eventReactive(input$GO_SET_ADVANCED, {
   if (input$TypeAnalysis == "multivariate"){
     if (input$LoadExample == "Example1"){
       expressionData<-"data/data_breast/mrna.csv" #expression file path
@@ -472,7 +468,7 @@ exprDatSec_present <- reactive({
 
 
 
-exprDatTer <- eventReactive(input$goPrevalence2, {
+exprDatTer <- eventReactive(input$GO_SET_ADVANCED, {
   if (input$LoadExample == "Example1"){
     updateRadioButtons(session, "OmicTable3", selected = "Proteins")
     expressionData<-"data/data_breast/protein.csv" #expression file path

ui.R

@@ -78,7 +78,7 @@ ui <- tagList(
                                                                        selectInput("TypeFiltration", "Type of filtration", choices = c("On prevalence" = "prevalence", "On minimum count" = "count")),
                                                                        conditionalPanel("input.TypeFiltration == 'prevalence'",
                                                                                         sliderInput("prevalence", "Prevalence Threshold: ", min = 0, max = 100, value = 0),
-                                                                                        actionButton("goPrevalence", "Set prevalence")),
+                                                                                        ),
                                                                        conditionalPanel("input.TypeFiltration == 'count'",
                                                                                         numericInput("count", "Minimum number of count across sample: ", min = 0, value = 2))),
                                                
@@ -95,7 +95,7 @@ ui <- tagList(
                                                                                         selectInput("TypeFiltration1", "Type of filtration", choices = c("On prevalence" = "prevalence", "On minimum count" = "count")),
                                                                                         conditionalPanel("input.TypeFiltration1 == 'prevalence'",
                                                                                                          sliderInput("prevalence1", "Prevalence Threshold: ", min = 0, max = 100, value = 0),
-                                                                                                         actionButton("goPrevalence1", "Set prevalence")),
+                                                                                                         ),
                                                                                         conditionalPanel("input.TypeFiltration1 == 'count'",
                                                                                                          numericInput("count1", "Minimum number of count across sample: ", min = 0, value = 2))),
                                                                      
@@ -112,7 +112,7 @@ ui <- tagList(
                                                                                                          selectInput("TypeFiltration2", "Type of filtration", choices = c("On prevalence" = "prevalence", "On minimum count" = "count")),
                                                                                                          conditionalPanel("input.TypeFiltration2 == 'prevalence'",
                                                                                                                           sliderInput("prevalence2", "Prevalence Threshold: ", min = 0, max = 100, value = 0),
-                                                                                                                          actionButton("goPrevalence2", "Set prevalence")),
+                                                                                                                          ),
                                                                                                          conditionalPanel("input.TypeFiltration2 == 'count'",
                                                                                                                           numericInput("count2", "Minimum number of count across sample: ", min = 0, value = 2))),
                                                                                         
@@ -160,6 +160,10 @@ ui <- tagList(
                                  )
 
                         ), #End first Row
+                        fluidRow(
+                          h2("Click on the button bellow to update your data according to the chosen advanced parameters"),
+                          actionButton("GO_SET_ADVANCED", "Update your data")
+                        ),
                         fluidRow( #Begin Second Row --> Data visualization
                           h2("Information Visualization"),
                           DT::dataTableOutput("ViewTable")