github/shiny
1
1
Fork 0
mirror of https://github.com/rstudio/shiny.git synced 2026-04-07 03:00:20 -04:00
Code Issues Packages Projects Releases Wiki Activity

Trigger shiny:recalculated after the calculation is done

Browse Source
This commit is contained in:
Yihui Xie
2015-08-31 16:38:46 -05:00
parent 83c3656d29
commit b0676b8b31
2 changed files with 12 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
R/shiny.R
View File

@@ -471,7 +471,9 @@ ShinySession <- R6Class(
obs <- observe({
self$sendCustomMessage('recalculating', list(name = name))
self$sendCustomMessage('recalculating', list(
name = name, status = 'recalculating'
))
value <- try(
{
@@ -493,6 +495,10 @@ ShinySession <- R6Class(
silent=FALSE
)
self$sendCustomMessage('recalculating', list(
name = name, status = 'recalculated'
))
private$invalidatedOutputErrors$remove(name)
private$invalidatedOutputValues$remove(name)

9
srcjs/shinyapp.js
View File

@@ -508,10 +508,11 @@ var ShinyApp = function() {
});
addCustomMessageHandler('recalculating', function(message) {
if (message.hasOwnProperty('name')) return;
$('#' + message.name).trigger({
type: 'shiny:recalculating'
});
if (message.hasOwnProperty('name') && message.hasOwnProperty('status')) {
$('#' + message.name).trigger({
type: 'shiny:' + message.status
});
}
});