testing to see if event is not being run when astroglag is set to true

vizapp/shinyapp/server.R

@@ -260,18 +260,26 @@ server <- function(input, output, session) {
         current_obj(original_obj())
     })
 
-	observeEvent(input$local,{ # Processes local data
-		if (input$local!=c("upload")) {
-			temp <- get(input$local, local_data)
-			samples.integrated<<-temp[[1]]
-			geneDescriptions<<-temp[[2]]
-			samples.markers<<-temp[[3]]
-			clusters.markers<<-temp[[4]]
-            clusteredSamples.markers<<-temp[[5]]
+	observeEvent(input$local, {
+        if (input$local != "upload") {
+            temp <- get(input$local, local_data)
+            samples.integrated <<- temp[[1]]
+            geneDescriptions <<- temp[[2]]
+            samples.markers <<- temp[[3]]
+            clusters.markers <<- temp[[4]]
+            clusteredSamples.markers <<- temp[[5]]
             current_obj(samples.integrated)
             original_obj(samples.integrated)
+            
+            # Update the gene select input here:
+            updateSelectizeInput(session,
+            "features",
+            choices = giveChoices1(x = current_obj()@assays$RNA$data@Dimnames[[1]]),
+            server = TRUE,
+            selected = NULL
+            )
         }
-        })
+    })
 
 	output$finished <- reactive({ # Utilized as a check to determine when "Apply changes" button is available 
 		if(is.null(input$sc_file) && input$local == c("upload")) return(0)