add force button

drug-target/global.R

@@ -67,6 +67,7 @@ load_target_globals=function(target){
   )
   }
 
+
 #### Local Functions ####
 # Generate a conditionalPanel() for a given graph function and sidebar name combination
 generate_conditionalPanel = function(tab_name, plot_function, plot_df){

drug-target/server.R

@@ -26,7 +26,11 @@ function(input, output, session) {
   
   
   #### observeEvent() Fun(tm) ####
-  observeEvent(input$clear_ngl, {
+  observeEvent(
+    {
+      input$clear_ngl
+      input$force
+      }, {
     NGLVieweR_proxy("structure") %>%
       removeSelection("Pos")
   })
@@ -51,6 +55,7 @@ function(input, output, session) {
       input$snp_ligand_dist
       input$snp_nca_dist
       input$snp_interface_dist
+      input$force
     },
     {
       print("entering main observeEvent()")

drug-target/ui.R

@@ -27,6 +27,10 @@ dashboardPage(skin="purple",
                               menuItem("Consurf", tabName="Consurf"),
                               menuItem("LogoP OR", tabName="LogoP OR"),
                               menuItem("Lineage", tabName="Lineage"),
+                              actionButton("force",
+                                           "Force Refresh")
+                              ),
+                 
                               #menuItem('Stability count', tabName='Stability count'),
                               
                               # These conditionalPanel()s make extra settings appear in the sidebar when needed