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

comma shotgun

Browse source
This commit is contained in:
Tanushree Tunstall 2022-12-12 17:46:27 +00:00
parent a6326942a6
commit 21bc1c2189
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
server.R
View file

@ -249,10 +249,9 @@ shinyServer(function(input, output){
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/>"
"<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/>"
"<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/>"
)
)