isolating observeevent()s

drug-target/server.R

@@ -188,6 +188,95 @@ function(input, output, session) {
       
     }
   )
+  
+  observeEvent(
+    {
+      input$display_position_range
+      input$stability_snp_param
+      input$logoplot_colour_scheme
+      input$omit_snp_count
+      input$switch_target
+      input$force
+    },
+    {
+      print("entering secondary observeEvent()")
+      
+      target_gene = input$switch_target
+      merged_df3 = cbind(get(paste0(input$switch_target, '_merged_df3')))
+      mutable_df3 = cbind(merged_df3)
+      # # re-sort the dataframe according to position count
+      sorted_df = cbind(merged_df3)
+      sorted_df = sorted_df %>% arrange(pos_count)
+      # 
+      outdir = paste0(load_dir, "Data/", drug, '/output/')
+      indir  = paste0(load_dir, "Data/", drug , "/input/")
+      stability_colname      = stability_boxes_df[stability_boxes_df$stability_type==input$stability_snp_param,"stability_colname"]
+      outcome_colname        = stability_boxes_df[stability_boxes_df$stability_type==input$stability_snp_param,"outcome_colname"]
+      
+      display_position_range = input$display_position_range
+      plot_min=display_position_range[1]
+      plot_max=display_position_range[2]
+      
+      logoplot_colour_scheme = input$logoplot_colour_scheme
+      omit_snp_count = input$omit_snp_count
+      
+      #print(paste0('Plotting positions between: ', plot_min, ' and ', plot_max))
+      
+      subset_mutable_df3=mutable_df3[(mutable_df3$position>=plot_min & mutable_df3$position <=plot_max),]
+      
+      subset_mutable_df3=mutable_df3[(mutable_df3$position>=plot_min & mutable_df3$position <=plot_max),]
+      subset_sorted_df=sorted_df[(sorted_df$position>=plot_min & sorted_df$position <=plot_max),]
+      
+      
+      
+      #### bp_stability_hmap ####
+      # red/blue tiles wala "Stability SNP by Site"
+      output$bp_stability_hmap = renderPlot(
+        bp_stability_hmap(
+          subset_sorted_df,
+          reorder_position = input$reorder_custom_h,
+          p_title = NULL,
+          yvar_colname = stability_colname,
+          stability_colname = stability_colname,
+          stability_outcome_colname = outcome_colname,
+          my_ylab = NULL,
+          y_max_override = max(sorted_df$pos_count),
+          aa_pos_drug = get(paste0("embb","_aa_pos_drug")),
+          active_aa_pos = get(paste0("embb","_active_aa_pos")),
+          aa_pos_lig1 = get(paste0("embb","_aa_pos_lig1")),
+          aa_pos_lig2 = get(paste0("embb","_aa_pos_lig2")),
+          aa_pos_lig3 = get(paste0("embb","_aa_pos_lig3"))
+        )
+      )
+      #### LogoPlotCustomH ####
+      output$LogoPlotCustomH = renderPlot(
+        LogoPlotCustomH(
+          subset_sorted_df,
+          my_logo_col = logoplot_colour_scheme,
+          aa_pos_drug = get(paste0(target_gene,"_aa_pos_drug")),
+          active_aa_pos = get(paste0(target_gene,"_active_aa_pos")),
+          aa_pos_lig1 = get(paste0(target_gene,"_aa_pos_lig1")),
+          aa_pos_lig2 = get(paste0(target_gene,"_aa_pos_lig2")),
+          aa_pos_lig3 = get(paste0(target_gene,"_aa_pos_lig3"))
+        )
+      )
+      
+      #### wideP_consurf3 ####
+      output$wideP_consurf3 = renderPlot(
+        wideP_consurf3(
+          subset_sorted_df, 
+          point_colours = consurf_colours,
+          aa_pos_drug = get(paste0(target_gene,"_aa_pos_drug")),
+          active_aa_pos = get(paste0(target_gene,"_active_aa_pos")),
+          aa_pos_lig1 = get(paste0(target_gene,"_aa_pos_lig1")),
+          aa_pos_lig2 = get(paste0(target_gene,"_aa_pos_lig2")),
+          aa_pos_lig3 = get(paste0(target_gene,"_aa_pos_lig3"))
+        )
+      )
+      
+    }
+  )
+  
   observeEvent(
     {
       input$display_position_range