tanu/tb-host-dashboard
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

mutation box info for all mutations

Browse source
This commit is contained in:
Tanushree Tunstall 2022-12-12 17:33:46 +00:00
parent 38323f6c34
commit 07fe6b51da
1 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
server.R
View file

@ -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("<strong>PDB ID: </strong>", as.character(genes[genes$Gene==selected_gene,"PDB"]),"<br/>",
"<strong>AlphaFold ID: </strong>", as.character(genes[genes$Gene==selected_gene,"AF_PDB"]), "<br/>"
)
)
})
})
})