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

Call manageHiddenOutputs when suspendWhenHidden is set

Browse Source
This commit is contained in:
Winston Chang
2013-02-11 15:13:39 -06:00
parent 36d2dddc59
commit fd0613ea0e
1 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
R/shiny.R
View File

@@ -307,10 +307,9 @@ ShinyApp <- setRefClass(
outputName <- sub("^\\.shinyout_(.*)_hidden", "\\1", hiddenName)
# Use session$.values intead of session$get() to avoid reactivity
if (session$.values[[hiddenName]]) {
if (.outputOptions[[outputName]][['suspendWhenHidden']]) {
.outputs[[outputName]]$suspend()
}
if (session$.values[[hiddenName]] &&
.outputOptions[[outputName]][['suspendWhenHidden']]) {
.outputs[[outputName]]$suspend()
} else {
.outputs[[outputName]]$resume()
}
@@ -336,6 +335,12 @@ ShinyApp <- setRefClass(
.outputOptions[[name]][[optname]] <<- opts[[optname]]
}
# If any changes to suspendWhenHidden, need to re-run manageHiddenOutputs
if ("suspendWhenHidden" %in% names(opts)) {
manageHiddenOutputs()
}
invisible()
}
)