From 21bc1c2189e549a900e8603d2e9b83c5c01aee7a Mon Sep 17 00:00:00 2001
From: Tanushree Tunstall <tanu@tunstall.in>
Date: Mon, 12 Dec 2022 17:46:27 +0000
Subject: [PATCH] comma shotgun

---
 server.R | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

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("<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/>"
                   
       )
       )