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(