@@ -14,7 +14,7 @@

 #' @param prefix Prefix to use for the name of the output file. Default \code{"sample"}.

 #' @param overwrite Boolean. Default \code{TRUE}.

 #' @param compression If output file compression is required, this variable accepts

-#' 'gzip', 'lzf' or "None" as inputs. Default \code{gzip"}.

+#' 'gzip', 'lzf' or "None" as inputs. Default \code{"gzip"}.

 #' @param compressionOpts Integer. Sets the compression level

 #' @param forceDense Default \code{False} Write sparse data as a dense matrix.

 #' Refer \code{anndata.write_h5ad} documentation for details. Default \code{NULL}.

@@ -8022,16 +8022,26 @@ shinyServer(function(input, output, session) {

     } else if (input$exportChoice == "textfile") {

       extName <- ".txt"

     }

-    tags$div(

-      div(style = "display: inline-block;vertical-align:top; width: 160px;",

-          textInput("exportPrefix", label = NULL,

-                    value = defaultName, placeholder = "Required!",

-                    width = '160px')),

-      div(

-        style = "display: inline-block;vertical-align:top; width: 50px;",

-        p(extName, style = "margin-top: 8px; margin-left: 2px; font-size: 16px;")

+    if (input$exportChoice != "textfile") {

+      tags$div(

+        div(style = "display: inline-block;vertical-align:top; width: 160px;",

+            textInput("exportPrefix", label = NULL,

+                      value = defaultName, placeholder = "Required!",

+                      width = '160px')),

+        div(

+          style = "display: inline-block;vertical-align:top; width: 50px;",

+          p(extName, style = "margin-top: 8px; margin-left: 2px; font-size: 16px;")

+        )

       )

-    )

+    } else {

+      tags$div(

+        div(style = "display: inline-block;vertical-align:top; width: 160px;",

+            textInput("exportPrefix", label = NULL,

+                      value = defaultName, placeholder = "Required!",

+                      width = '160px')),

+      )

+    }

+

   })

   addPopover(session, 'exportAssayLabel', '', "The name of assay of interests that will be set as the primary matrix of the output AnnData.", 'right')

@@ -23,30 +23,36 @@ shinyPanelExport <- fluidPage(

           "Flat text files" = "textfile"

         )

       ),

-      tags$label(id="exportFileNameLabel", "File Name"),

+      conditionalPanel(

+        condition = "input.exportChoice == 'annData' || input.exportChoice == 'rds'",

+        tags$label(id="exportFileNameLabel", "File Name"),

+      ),

+      conditionalPanel(

+        condition = "input.exportChoice == 'textfile'",

+        tags$label(id="exportFileNameLabel", "File prefix"),

+      ),

       uiOutput("exportFileName"),

       actionButton("exportData", "Download")

     ),

     column(

       6,

       conditionalPanel(

-        condition = "input.exportChoice === 'textfile'",

+        condition = "input.exportChoice == 'textfile'",

         tags$h5(style = "font-weight: bold; margin-bottom: 15px", "Set export specifications"),

         checkboxInput("exportFlatGzip", "Gzip Compress", value = TRUE)

       ),

       conditionalPanel(

-        condition = "input.exportChoice === 'annData'",

+        condition = "input.exportChoice == 'annData'",

         tags$h5(style = "font-weight: bold; margin-bottom: 15px", "Set export specifications"),

-        tags$label(id="exportAssayLabel", "Assay"),

         uiOutput("exportAssay"),

-        tags$label(id="compressionLabel", "Compression"),

+        # tags$label(id="compressionLabel", "Compression"),

         # selectInput("compression", label = NULL, c("None", "lzf", "gzip"), width='140px'),

         tags$label(id="compressionOptsLabel", "Compression Opts"),

         numericInput("compressionOpts", label = NULL, 1, min = 1, max = 100, width='140px'),

         checkboxInput("forceDense", "Force Dense", value = FALSE)

       ),

       conditionalPanel(

-        condition = "input.exportChoice === 'textfile' || input.exportChoice === 'annData'",

+        condition = "input.exportChoice == 'textfile' || input.exportChoice == 'annData'",

         checkboxInput("exportOverwrite", "Overwrite", value = TRUE)

       )

     )

@@ -31,7 +31,7 @@ Default \code{"counts"}.}

 \item{overwrite}{Boolean. Default \code{TRUE}.}

 \item{compression}{If output file compression is required, this variable accepts

-'gzip', 'lzf' or "None" as inputs. Default \code{gzip"}.}

+'gzip', 'lzf' or "None" as inputs. Default \code{"gzip"}.}

 \item{compressionOpts}{Integer. Sets the compression level}