diff --git a/server.R b/server.R
index 13e3b11..a111218 100644
--- 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
index 4d8f2d1..94d87c8 100644
--- a/ui.R
+++ b/ui.R
@@ -19,7 +19,6 @@ library(plotly)
 library(svglite)
 
 library(expss)
-library(xlsx)
 
 library(BiocManager)
 library(edgeR)