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:39:41 +01:00
parent 1f54c78f77
commit cb20efd900
1 changed files with 89 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

89
drug-target/server.R
View file

@ -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