Update server.R

Remove writexl calls.
EricLarG4 · Jan 27, 2023 · 5b32f1a · 5b32f1a
1 parent 50e1a93
commit 5b32f1a
Showing 1 changed file with 0 additions and 4 deletions.
diff --git a/app/server.R b/app/server.R
@@ -1291,8 +1291,6 @@ server <- function(input, output, session) {
 
   ### 3.3.1. Least-square minimization----
   opt.0 <- reactive({
-
-    # writexl::write_xlsx(MSsnaps.pp(), 'snaps.xlsx')
 
     withProgress(
       message = 'Optimizing data',
@@ -3378,8 +3376,6 @@ server <- function(input, output, session) {
   ### 5.1. Process new data----
 
   k.norm <- reactive({
-
-    writexl::write_xlsx(k.spectra(), 'kin.spectra.xlsx')
 
     k.data <- k.spectra() %>%
       group_by(filename, Species, scan, time, mz) %>%