add force button

This commit is contained in:
Tanushree Tunstall 2022-10-10 15:45:58 +01:00
parent f5d5923e42
commit 47cc8c2661
3 changed files with 12 additions and 2 deletions

View file

@ -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()")