remove unwanted xls save

app.R

@@ -359,7 +359,7 @@ server <- function(input, output, session) {
         #.likelihoods$ba_os <<- calcLikelihood(2, newStatus)
         #.likelihoods$os_es <<- calcLikelihood(3, newStatus)
         .likelihoods$p_es <<- calcLikelihood(0, newStatus)
-        write.xlsx(.likelihoods$p_es, 'tmp.xlsx')
+        #write.xlsx(.likelihoods$p_es, 'tmp.xlsx')
         .selections$pressStatus <<- newStatus
       }