remove unwanted xls save
This commit is contained in:
2
app.R
2
app.R
@@ -359,7 +359,7 @@ server <- function(input, output, session) {
|
|||||||
#.likelihoods$ba_os <<- calcLikelihood(2, newStatus)
|
#.likelihoods$ba_os <<- calcLikelihood(2, newStatus)
|
||||||
#.likelihoods$os_es <<- calcLikelihood(3, newStatus)
|
#.likelihoods$os_es <<- calcLikelihood(3, newStatus)
|
||||||
.likelihoods$p_es <<- calcLikelihood(0, newStatus)
|
.likelihoods$p_es <<- calcLikelihood(0, newStatus)
|
||||||
write.xlsx(.likelihoods$p_es, 'tmp.xlsx')
|
#write.xlsx(.likelihoods$p_es, 'tmp.xlsx')
|
||||||
.selections$pressStatus <<- newStatus
|
.selections$pressStatus <<- newStatus
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user