From effa8f06d5ec912887c0f9319dfa7678f0498113 Mon Sep 17 00:00:00 2001
From: ldhtnp <ldhtnp@umsystem.edu>
Date: Fri, 7 Jun 2024 13:29:29 -0500
Subject: [PATCH] fixed typos, added clear comment once update button is
 clicked

---
 pvactools/tools/pvacview/server.R | 9 +++++----
 pvactools/tools/pvacview/ui.R     | 2 +-
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/pvactools/tools/pvacview/server.R b/pvactools/tools/pvacview/server.R
index 178e0d28..37b048ee 100644
--- a/pvactools/tools/pvacview/server.R
+++ b/pvactools/tools/pvacview/server.R
@@ -651,6 +651,7 @@ server <- shinyServer(function(input, output, session) {
     if (is.null(df$mainTable)) {
       return()
     }
+    updateTextAreaInput(session, "comments", value = "")
     df$comments[selectedID(), 1] <- input$comments
   })
   ##display of genomic information
@@ -711,7 +712,7 @@ server <- shinyServer(function(input, output, session) {
   output$addData_transcript <- renderText({
     df$additionalData[df$additionalData$ID == selectedID(), ]$`Best Transcript`
   })
-  ##transcripts sets table displaying sets of transcripts with the same consequence
+  ##transcript sets table displaying sets of transcripts with the same consequence
   output$transcriptSetsTable <- renderDT({
     withProgress(message = "Loading Transcript Sets Table", value = 0, {
       GB_transcripts <- data.frame()
@@ -723,7 +724,7 @@ server <- shinyServer(function(input, output, session) {
           "# Peptides" = df$metricsData[[selectedID()]]$peptide_counts,
           "Total Expr" = df$metricsData[[selectedID()]]$set_expr
         )
-        names(GB_transcripts) <- c("Transcripts Sets", "#Transcripts", "# Peptides", "Total Expr")
+        names(GB_transcripts) <- c("Transcript Sets", "#Transcripts", "# Peptides", "Total Expr")
         best_transcript_set <- NULL
         incProgress(0.5)
         for (i in 1:length(df$metricsData[[selectedID()]]$sets)){
@@ -736,10 +737,10 @@ server <- shinyServer(function(input, output, session) {
         }
         incProgress(0.5)
         datatable(GB_transcripts, selection = list(mode = "single", selected = best_transcript_set_id), style="bootstrap") %>%
-          formatStyle("Transcripts Sets", backgroundColor = styleEqual(c(best_transcript_set), c("#98FF98")))
+          formatStyle("Transcript Sets", backgroundColor = styleEqual(c(best_transcript_set), c("#98FF98")))
       }else {
         GB_transcripts <- data.frame("Transcript Sets" = character(), "# Transcripts" = character(), "# Peptides" = character(), "Total Expr" = character())
-        names(GB_transcripts) <- c("Transcripts Sets", "#Transcripts", "# Peptides", "Total Expr")
+        names(GB_transcripts) <- c("Transcript Sets", "#Transcripts", "# Peptides", "Total Expr")
         incProgress(0.5)
         datatable(GB_transcripts)
         incProgress(0.5)
diff --git a/pvactools/tools/pvacview/ui.R b/pvactools/tools/pvacview/ui.R
index b0143d11..54c2c30f 100644
--- a/pvactools/tools/pvacview/ui.R
+++ b/pvactools/tools/pvacview/ui.R
@@ -212,7 +212,7 @@ explore_tab <- tabItem(
                     span("Genomic Information (chromosome - start - stop - ref - alt)", verbatimTextOutput("metricsTextGenomicCoord")),
                     h5("Additional variant information:"),
                     uiOutput("url"), style = "overflow-x: scroll;font-size:100%"),
-                box(width = 2, solidHeader = TRUE, title = "Peptide Evalutation Overview",
+                box(width = 2, solidHeader = TRUE, title = "Peptide Evaluation Overview",
                     tableOutput("checked"), style = "overflow-x: scroll;font-size:100%")
             )
         ),