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:21:22 +01:00
parent f7604d365b
commit 84ed09fea8
1 changed files with 71 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

99
drug-target/server.R
View file

@ -146,7 +146,50 @@ function(input, output, session) {
}
)
# Isolated observeEvent() which updates all the UI controls independently of the plot rendering observeEvent()
observeEvent(
{
input$display_position_range
input$stability_snp_param
input$logoplot_colour_scheme
input$switch_target
input$force
},
{
target_gene = input$switch_target
merged_df3 = cbind(get(paste0(input$switch_target, '_merged_df3')))
position_max=max(merged_df3[['position']])
position_min=min(merged_df3[['position']])
min_ligand_distance=min(merged_df3$ligand_distance)
max_ligand_distance=max(merged_df3$ligand_distance)
mutable_df3 = cbind(merged_df3)
updateCheckboxGroupInput(
session,
"corr_selected",
choiceNames = colnames(get(paste0(input$switch_target,"_corr_df_m3_f"))),
choiceValues = colnames(get(paste0(input$switch_target,"_corr_df_m3_f"))),
selected = c("FoldX", "DeepDDG", "mCSM.DUET")
)
updateSliderInput(
session,
"display_position_range",
min = position_min,
max = position_max
)
updateNumericInput(session, "selected_logop_snp_position", min = position_min, max = position_max, value = position_min)
updateNumericInput(session, "selected_logop_ed_position", min = position_min, max = position_max, value = position_min)
updateNumericInput(session, "corr_lig_dist", min = min_ligand_distance, max = max_ligand_distance, value = min_ligand_distance)
updateNumericInput(session, "snp_ligand_dist", min = min(merged_df3$ligand_distance), max = max(merged_df3$ligand_distance))
updateNumericInput(session, "snp_interface_dist", min = min(merged_df3$interface_dist), max = max(merged_df3$interface_dist))
updateNumericInput(session, "snp_nca_dist", min = min(merged_df3$nca_distance), max = max(merged_df3$nca_distance))
}
)
observeEvent(
{
input$display_position_range
@ -164,10 +207,10 @@ function(input, output, session) {
target_gene = input$switch_target
merged_df3 = cbind(get(paste0(input$switch_target, '_merged_df3')))
position_max=max(merged_df3[['position']])
position_min=min(merged_df3[['position']])
min_ligand_distance=min(merged_df3$ligand_distance)
max_ligand_distance=max(merged_df3$ligand_distance)
# position_max=max(merged_df3[['position']])
# position_min=min(merged_df3[['position']])
# min_ligand_distance=min(merged_df3$ligand_distance)
# max_ligand_distance=max(merged_df3$ligand_distance)
# FIXME: these are IMPORTANT
# # add "pos_count" position count column
# merged_df3=merged_df3 %>% dplyr::add_count(position)
@ -196,29 +239,29 @@ function(input, output, session) {
#input$stability_snp_param
updateCheckboxGroupInput(
session,
"corr_selected",
choiceNames = colnames(get(paste0(input$switch_target,"_corr_df_m3_f"))),
choiceValues = colnames(get(paste0(input$switch_target,"_corr_df_m3_f"))),
selected = c("FoldX", "DeepDDG", "mCSM.DUET")
)
updateSliderInput(
session,
"display_position_range",
min = position_min,
max = position_max
#, value = c(position_min, position_min+150)
)
updateNumericInput(session, "selected_logop_snp_position", min = position_min, max = position_max, value = position_min)
updateNumericInput(session, "selected_logop_ed_position", min = position_min, max = position_max, value = position_min)
updateNumericInput(session, "corr_lig_dist", min = min_ligand_distance, max = max_ligand_distance, value = min_ligand_distance)
updateNumericInput(session, "snp_ligand_dist", min = min(merged_df3$ligand_distance), max = max(merged_df3$ligand_distance))
updateNumericInput(session, "snp_interface_dist", min = min(merged_df3$interface_dist), max = max(merged_df3$interface_dist))
updateNumericInput(session, "snp_nca_dist", min = min(merged_df3$nca_distance), max = max(merged_df3$nca_distance))
# updateCheckboxGroupInput(
# session,
# "corr_selected",
# choiceNames = colnames(get(paste0(input$switch_target,"_corr_df_m3_f"))),
# choiceValues = colnames(get(paste0(input$switch_target,"_corr_df_m3_f"))),
# selected = c("FoldX", "DeepDDG", "mCSM.DUET")
# )
#
# updateSliderInput(
# session,
# "display_position_range",
# min = position_min,
# max = position_max
# #, value = c(position_min, position_min+150)
# )
#
# updateNumericInput(session, "selected_logop_snp_position", min = position_min, max = position_max, value = position_min)
# updateNumericInput(session, "selected_logop_ed_position", min = position_min, max = position_max, value = position_min)
# updateNumericInput(session, "corr_lig_dist", min = min_ligand_distance, max = max_ligand_distance, value = min_ligand_distance)
#
# updateNumericInput(session, "snp_ligand_dist", min = min(merged_df3$ligand_distance), max = max(merged_df3$ligand_distance))
# updateNumericInput(session, "snp_interface_dist", min = min(merged_df3$interface_dist), max = max(merged_df3$interface_dist))
# updateNumericInput(session, "snp_nca_dist", min = min(merged_df3$nca_distance), max = max(merged_df3$nca_distance))
@ -232,7 +275,7 @@ function(input, output, session) {
logoplot_colour_scheme = input$logoplot_colour_scheme
omit_snp_count = input$omit_snp_count
print(paste0('Plotting positions between: ', plot_min, ' and ', plot_max))
#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),]