From f7604d365b5f3e5d7734f3af9040ad206223bf9b Mon Sep 17 00:00:00 2001
From: Tanushree Tunstall <tanu@tunstall.in>
Date: Mon, 10 Oct 2022 16:08:52 +0100
Subject: [PATCH] force button

---
 drug-target/server.R | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/drug-target/server.R b/drug-target/server.R
index cbc5bd7..6f5247d 100644
--- a/drug-target/server.R
+++ b/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(