diff --git a/app.R b/app.R
index 050eb4c..b2e303c 100644
--- a/app.R
+++ b/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
       }