Fixed popgen excel download

agouy · Nov 29, 2024 · 5157f45 · 5157f45
1 parent 6de09b5
commit 5157f45
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/R/module_for_popgen.R b/R/module_for_popgen.R
@@ -59,7 +59,7 @@ popgen_UI <- function(id) {
       ns = ns,
       div(tableOutput(ns('diversity')) %>% shinycssloaders::withSpinner(color="#dd4814"), style = "font-size:75%"),
       downloadButton(ns('dlPopgen'), 'Download as text (.txt)'),
-      downloadButton(ns('dlPopgenCL'), 'Download as Excel (.xlsx)'),
+      downloadButton(ns('dlPopgenXL'), 'Download as Excel (.xlsx)'),
       tags$hr(),
       uiOutput(ns("uiPG")),
       uiOutput(ns("plotPG"))
@@ -199,7 +199,11 @@ for_popgen_Server <- function(id, input_file, getgenind, popnames, ploidy, hw_pe
           req(reacIndices_pop_for())
           taB <- reacIndices_pop_for()
           out <- taB[, ! colnames(taB) %in% c("Ht", "Fis", "Fst")]
-          openxlsx::write.xlsx(list(forensics_parameters = out), file, row.names = FALSE)
+          openxlsx::write.xlsx(
+            list(forensics_parameters = out),
+            file,
+            row.names = FALSE
+          )
         }
       )