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( observeEvent(
{ {
input$display_position_range input$display_position_range
@ -164,10 +207,10 @@ function(input, output, session) {
target_gene = input$switch_target target_gene = input$switch_target
merged_df3 = cbind(get(paste0(input$switch_target, '_merged_df3'))) merged_df3 = cbind(get(paste0(input$switch_target, '_merged_df3')))
position_max=max(merged_df3[['position']]) # position_max=max(merged_df3[['position']])
position_min=min(merged_df3[['position']]) # position_min=min(merged_df3[['position']])
min_ligand_distance=min(merged_df3$ligand_distance) # min_ligand_distance=min(merged_df3$ligand_distance)
max_ligand_distance=max(merged_df3$ligand_distance) # max_ligand_distance=max(merged_df3$ligand_distance)
# FIXME: these are IMPORTANT # FIXME: these are IMPORTANT
# # add "pos_count" position count column # # add "pos_count" position count column
# merged_df3=merged_df3 %>% dplyr::add_count(position) # merged_df3=merged_df3 %>% dplyr::add_count(position)
@ -196,29 +239,29 @@ function(input, output, session) {
#input$stability_snp_param #input$stability_snp_param
updateCheckboxGroupInput( # updateCheckboxGroupInput(
session, # session,
"corr_selected", # "corr_selected",
choiceNames = colnames(get(paste0(input$switch_target,"_corr_df_m3_f"))), # choiceNames = colnames(get(paste0(input$switch_target,"_corr_df_m3_f"))),
choiceValues = 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") # selected = c("FoldX", "DeepDDG", "mCSM.DUET")
) # )
#
updateSliderInput( # updateSliderInput(
session, # session,
"display_position_range", # "display_position_range",
min = position_min, # min = position_min,
max = position_max # max = position_max
#, value = c(position_min, position_min+150) # #, 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_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, "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, "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_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_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)) # 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 logoplot_colour_scheme = input$logoplot_colour_scheme
omit_snp_count = input$omit_snp_count 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),] subset_mutable_df3=mutable_df3[(mutable_df3$position>=plot_min & mutable_df3$position <=plot_max),]