diff --git a/server.R b/server.R index 3a487ed..c01a09f 100644 --- a/server.R +++ b/server.R @@ -249,10 +249,9 @@ shinyServer(function(input, output){ 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"]), "
" - "Gene: ", selected_gene, "
" - "Mutations Observed: ",as.character(as.matrix(unique_missense_genes[unique_missense_genes[,'gene_name']==selected_gene,"total_muts_per_gene"])[1]),"
", - as.character(genes[genes$Gene==selected_gene,"AF_PDB"]), "
" + "AlphaFold ID: ", as.character(genes[genes$Gene==selected_gene,"AF_PDB"]), "
", + "Gene: ", selected_gene, "
", + "Mutations Observed: ",as.character(as.matrix(unique_missense_genes[unique_missense_genes[,'gene_name']==selected_gene,"total_muts_per_gene"])[1]), "
" ) )