From 0b7fd06024c45aa3a4db371810f2e15dbefbd114 Mon Sep 17 00:00:00 2001
From: PaulJonasJost <jost.pauljonas@gmail.com>
Date: Wed, 31 Jan 2024 10:10:46 +0100
Subject: [PATCH] Corrected weird comma placement.

---
 program/shinyApp/R/pca/server.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/program/shinyApp/R/pca/server.R b/program/shinyApp/R/pca/server.R
index 3eea59a4..79b8a145 100644
--- a/program/shinyApp/R/pca/server.R
+++ b/program/shinyApp/R/pca/server.R
@@ -169,8 +169,8 @@ pca_Server <- function(id, data, params, row_select){
           "PCA - ", params$omic_type, "-",
           paste0("entities:",row_select(),collapse = "_"),
           "-samples",
-          ifelse(any(input$sample_selection != "all"),paste0(" (with: ",paste0(input$sample_selection,collapse = ", "),")"),"")
-          , "-preprocessing: ",
+          ifelse(any(input$sample_selection != "all"),paste0(" (with: ",paste0(input$sample_selection,collapse = ", "),")"),""),
+          "-preprocessing: ",
           input$PreProcessing_Procedure
         )
         print(customTitle)