remove unwanted xls save

2019-04-10 11:51:05 +01:00
parent 2fb2080d85
commit 624d17c487
1 changed files with 1 additions and 1 deletions
--- 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
      }