From 624d17c4878af211e830a0d0fecef335cc7567d2 Mon Sep 17 00:00:00 2001
From: spegg <steve@avsdev.uk>
Date: Wed, 10 Apr 2019 11:51:05 +0100
Subject: [PATCH] remove unwanted xls save

---
 app.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
       }