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:44:36 +00:00
parent 07fe6b51da
commit 3b2e8ce02a
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
server.R
View file

@ -250,6 +250,9 @@ shinyServer(function(input, output){
selected_gene=input$gene selected_gene=input$gene
HTML(paste0("<strong>PDB ID: </strong>", as.character(genes[genes$Gene==selected_gene,"PDB"]),"<br/>", 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/>" "<strong>AlphaFold ID: </strong>", as.character(genes[genes$Gene==selected_gene,"AF_PDB"]), "<br/>"
"<strong>Gene: </strong>", selected_gene, "<br/>"
"<strong>Mutations Observed: </strong>",as.character(as.matrix(unique_missense_genes[unique_missense_genes[,'gene_name']==selected_gene,"total_muts_per_gene"])[1]),"<br/>"
as.character(genes[genes$Gene==selected_gene,"AF_PDB"]), "<br/>"
) )
) )