diff --git a/drug-target/global.R b/drug-target/global.R index 354dc78..7f6a06f 100644 --- a/drug-target/global.R +++ b/drug-target/global.R @@ -65,7 +65,8 @@ load_target_globals=function(target){ } } ) -} + } + #### Local Functions #### # Generate a conditionalPanel() for a given graph function and sidebar name combination diff --git a/drug-target/server.R b/drug-target/server.R index 6526ee5..99ffdd3 100644 --- a/drug-target/server.R +++ b/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()") diff --git a/drug-target/ui.R b/drug-target/ui.R index e91a10e..db74a8a 100644 --- a/drug-target/ui.R +++ b/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