diff --git a/server.R b/server.R index dacb105..0d01dc6 100644 --- a/server.R +++ b/server.R @@ -94,7 +94,6 @@ shinyServer(function(input, output){ # Now update the 3D structure to highlight the clicked thing and then zoom in. NGLVieweR_proxy("structure") %>% - #addSelection('ball+stick' addSelection('spacefill' , param = list( name = "Pos" @@ -105,7 +104,6 @@ shinyServer(function(input, output){ ) ) NGLVieweR_proxy("af_structure") %>% - #addSelection('ball+stick' addSelection('spacefill' , param = list( name = "Pos" @@ -248,6 +246,15 @@ shinyServer(function(input, output){ #opacity = 1 ) ) + output$information <- renderUI({ + selected_gene=input$gene + HTML(paste0("PDB ID: ", as.character(genes[genes$Gene==selected_gene,"PDB"]),"
", + "AlphaFold ID: ", as.character(genes[genes$Gene==selected_gene,"AF_PDB"]), "
" + + ) + ) + + }) }) })