only one button

server.R

@@ -16,9 +16,7 @@ server <- function(input, output, session) {
   js$disableTab("NETWORK_EXPLORATION")
   js$disableTab("MULTI-OMICS_ANALYSIS")
   
-  observe({
-    click("GO_SET_ADVANCED")
-  })
+ 
   
   observeEvent(input$enableTabulations, {
     # enable NETWORK_EXPLORATION when clicking the button

server_function/SERVER_Data_Upload.R

@@ -31,6 +31,7 @@ sampleAnnot <- reactive({
         updateCheckboxInput(session, "Omic3", value= FALSE)
 
     }else{
+      click("GO_SET_ADVANCED")
       validate(
         need(input$file2$datapath != "", "Please select a data set")
       )
@@ -112,6 +113,7 @@ exprDat <- eventReactive(input$GO_SET_ADVANCED, {
       exprDat <- read.csv(expressionData, sep = ",", header = TRUE, row.names = 1)
       
     }else{
+      click("GO_SET_ADVANCED")
       validate(
         need(input$file1$datapath != "", "Please select a data set")
       )

ui.R

@@ -158,7 +158,7 @@ ui <- tagList(
 
                         ), #End first Row
                         fluidRow(
-                          h2("Click on the button bellow to update your data according to the chosen advanced parameters"),
+                          h4("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