integrated comments

Author: PaulJonasJost

program/shinyApp/R/enrichment_analysis/server.R

@@ -101,7 +101,7 @@ enrichment_analysis_geneset_server <- function(
         # Saving Plot
         output$SavePlot <- downloadHandler(
           filename = function() {
-            paste(id,format(Sys.time(), "(%d.%m.%Y)_(%H;%M;%S)"),input$file_ext,sep=" ")
+            paste0(id,format(Sys.time(), "(%d.%m.%Y)_(%H;%M;%S)"),input$file_ext)
           },
           content = function(file){
             ggsave(

program/shinyApp/R/enrichment_analysis/ui.R

@@ -48,7 +48,7 @@ geneset_panel_UI <- function(
           radioGroupButtons(
             inputId = ns("file_ext"),
             label = "File Type:",
-            choices = c(".png", ".tiff", ".pdf", ".svg"),
+            choices = c(".png", ".tiff", ".svg", ".pdf"),
             selected = ".pdf"
           )
         ),

program/shinyApp/R/heatmap/server.R

@@ -373,7 +373,7 @@ heatmap_server <- function(id){moduleServer(
       tmp_filename <- paste0(
         getwd(),
         file_path,
-        paste(paste0(isolate(heatmap_title()), Sys.Date(), ".png"))
+        paste0(isolate(heatmap_title()), Sys.Date(), ".png")
       )
       save_complex_heatmap(
         isolate(heatmap_plot()),

program/shinyApp/R/heatmap/ui.R

@@ -155,7 +155,7 @@ heatmap_main <- function(ns){
         radioGroupButtons(
           inputId = ns("file_ext_Heatmap"), 
           label = "File Type:",
-          choices = c(".png", ".tiff", ".pdf", ".svg"), 
+choices = c(".png", ".tiff", ".svg", ".pdf"),
           selected = ".png"
         )
       ),

program/shinyApp/R/pca/ui.R

@@ -117,7 +117,7 @@ pca_main_panel <- function(ns){
             radioGroupButtons(
               inputId = ns("file_ext_plot1"),
               label = "File Type:",
-              choices = c(".png", ".tiff", ".pdf", ".svg"),
+choices = c(".png", ".tiff", ".svg", ".pdf"),
               selected = ".png"
             )
           ),
@@ -195,7 +195,7 @@ pca_main_panel <- function(ns){
             radioGroupButtons(
               inputId = ns("file_ext_Loadings"),
               label = "File Type:",
-              choices = c(".png", ".tiff", ".pdf", ".svg"),
+choices = c(".png", ".tiff", ".svg", ".pdf"),
               selected = ".png"
             )
           )
@@ -256,7 +256,7 @@ pca_main_panel <- function(ns){
             radioGroupButtons(
               inputId = ns("file_ext_Loadings_matrix"),
               label = "File Type:",
-              choices = c(".png", ".tiff", ".pdf", ".svg"),
+choices = c(".png", ".tiff", ".svg", ".pdf"),
               selected = ".png"
             )
           )
@@ -306,7 +306,7 @@ pca_main_panel <- function(ns){
             radioGroupButtons(
               inputId = ns("file_ext_Scree"),
               label = "File Type:",
-              choices = c(".png", ".tiff", ".pdf", ".svg"),
+choices = c(".png", ".tiff", ".svg", ".pdf"),
               selected = ".png"
             )
           )

program/shinyApp/R/pre_processing/ui.R

@@ -94,7 +94,7 @@ pre_processing_main_panel <- mainPanel(
       radioGroupButtons(
         inputId = "file_type_mean_sd_plot",
         label = "File Type:",
-        choices = c(".png", ".tiff", ".pdf", ".svg"),
+choices = c(".png", ".tiff", ".svg", ".pdf"),
         selected = ".png"
       )
     ), column(

program/shinyApp/R/single_gene_visualisation/ui.R

@@ -70,7 +70,7 @@ single_gene_visualisation_main_ui <- function(ns){
         radioGroupButtons(
           inputId = ns("file_ext_singleGene"),
           label = "File Type:",
-          choices = c(".png", ".tiff", ".pdf", ".svg"),
+choices = c(".png", ".tiff", ".svg", ".pdf"),
           selected = ".png"
         )
       ),