force button

drug-target/server.R

@@ -327,9 +327,16 @@ function(input, output, session) {
           aa_pos_lig3 = get(paste0(target_gene,"_aa_pos_lig3"))
         )
       )
+    }
+  )
 
-      
-      
+  observeEvent(
+    {
+      input$force
+      input$switch_target
+    },
+    {
+      target_gene = input$switch_target
       
       #### DM OM Plots ####
       #dm_om_param
@@ -359,8 +366,7 @@ function(input, output, session) {
         ), height=800
       )
     }
-  )
-  
+    )
   
   # FIXME: Doesn't add selected table rows correctly
   observeEvent(