tanu/Dashboards
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

isolating observeevent()s

Browse source
This commit is contained in:
Tanushree Tunstall 2022-10-10 16:31:16 +01:00
parent aaefd7e1d6
commit 1f54c78f77
1 changed files with 0 additions and 44 deletions
Download patch file Download diff file Expand all files Collapse all files

44
drug-target/server.R
View file

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