Export csv for batch gene expression

Used xlsx::write.xlsx() at a single place (all other exports are csv). Removing this, also exporting csv for consistency. This also removes dependency on rJava
cengenproject · Jun 4, 2024 · 7853319 · 7853319
1 parent f0344ae
commit 7853319
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 6 deletions.
diff --git a/server.R b/server.R
@@ -215,17 +215,15 @@ server <- function(input, output) {
       output$TGeneBatch <-
         downloadHandler(
           filename = function() {
-            paste(
+            paste0(
               "GenesExpressing-BATCH",
               "-thrs",
               input$Tgene_cut_batch,
-              ".xlsx",
-              sep = ""
+              ".csv"
             )
           },
           content = function(file) {
-            write.xlsx(tb, file, sheetName = "Sheet1", 
-                       col.names = TRUE, row.names = TRUE, append = FALSE)
+            write.csv(tb, file)
           }
         )
 

diff --git a/ui.R b/ui.R
@@ -19,7 +19,6 @@ library(plotly)
 library(svglite)
 
 library(expss)
-library(xlsx)
 
 library(BiocManager)
 library(edgeR)