From 905bdee46cb0af7ca1f7a3846013ddbe047958c3 Mon Sep 17 00:00:00 2001
From: "Zhang, Dabao" <zhangdb@purdue.edu>
Date: Fri, 20 May 2022 15:26:07 -0400
Subject: [PATCH] Update ui.R

---
 script/netvis/ui.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/script/netvis/ui.R b/script/netvis/ui.R
index 647f9f6..a43e94e 100644
--- a/script/netvis/ui.R
+++ b/script/netvis/ui.R
@@ -1,5 +1,5 @@
 ui <- dashboardPage(
-  dashboardHeader(title="Visualization of SIGNET results"),
+  dashboardHeader(title="Visualization of SIGNET Results"),
   
   dashboardSidebar(
     sidebarMenu(
@@ -26,7 +26,7 @@ ui <- dashboardPage(
                   fileInput("file1", "Choose a text file of gene list", accept = ".txt"),
                   actionButton("action1", "Clear gene list"),
                   hr(),
-                  radioButtons("radio1", "Choose a criteria for clustering",
+                  radioButtons("radio1", "Choose a criterion for clustering",
                                choices=list("Cluster by enrichment"="enrichment", 
                                             "Cluster by modularity"="modularity"),
                                selected="modularity"),
@@ -43,7 +43,7 @@ ui <- dashboardPage(
       
       ## Network Summary
       tabItem(tabName="net_summary",
-              h3(HTML(paste("</b>", "There are in total", "<b>", net_number, "</b>","subnetworks with", 
+              h3(HTML(paste("</b>", "There are a total of", "<b>", net_number, "</b>","subnetworks with", 
                             "<b>", vertex_number, "</b>","genes and",
                             "<b>", edge_number, "</b>","regulation effects in the network", sep=" "))),