diff --git a/drug-target/server.R b/drug-target/server.R index a43d63a..b10b62e 100644 --- a/drug-target/server.R +++ b/drug-target/server.R @@ -324,50 +324,6 @@ function(input, output, session) { ) ) - #### 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")) - ) - ) } )