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"]), "
"
+
+ )
+ )
+
+ })
})
})