From b61e6f57c20b47063873d0027a0731d27385f478 Mon Sep 17 00:00:00 2001 From: Evelyn Schmidt Date: Fri, 10 Nov 2023 17:57:12 -0600 Subject: [PATCH] fixing the transcript in set problem by added Transcript Length (#AA)= character() to the vector --- pvactools/tools/pvacview/server.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pvactools/tools/pvacview/server.R b/pvactools/tools/pvacview/server.R index 4ef1b1d6..1aa566a0 100644 --- a/pvactools/tools/pvacview/server.R +++ b/pvactools/tools/pvacview/server.R @@ -714,7 +714,7 @@ server <- shinyServer(function(input, output, session) { datatable(GB_transcripts, options = list(columnDefs = list(list(defaultContent = "N/A", targets = c(3)), list(visible = FALSE, targets = c(-1))))) %>% formatStyle(c("Transcripts in Selected Set"), "Best Transcript", backgroundColor = styleEqual(c(TRUE), c("#98FF98"))) }else { - GB_transcripts <- data.frame("Transcript" = character(), "Expression" = character(), "TSL" = character(), "Biotype" = character(), "Length" = character()) + GB_transcripts <- data.frame("Transcript" = character(), "Expression" = character(), "TSL" = character(), "Biotype" = character(), "Transcript Length (#AA)"= character(), "Length" = character()) incProgress(0.5) names(GB_transcripts) <- c("Transcripts in Selected Set", "Expression", "Transcript Support Level", "Biotype", "Transcript Length (#AA)", "Best Transcript") incProgress(0.5)