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

Fix erroneous comments in 03_reactivity

Browse Source
This commit is contained in:
Joe Cheng
2013-12-15 15:15:16 -08:00
parent b23cc47d95
commit 467048a0fc
1 changed files with 1 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
inst/examples/03_reactivity/server.R
View File

@@ -9,9 +9,6 @@ shinyServer(function(input, output) {
# 1) It is only called when the inputs it depends on changes
# 2) The computation and result are shared by all the callers (it
# only executes a single time)
# 3) When the inputs change and the expression is re-executed, the
# new result is compared to the previous result; if the two are
# identical, then the callers are not notified
#
datasetInput <- reactive({
switch(input$dataset,
@@ -34,7 +31,7 @@ shinyServer(function(input, output) {
})
# The output$summary depends on the datasetInput reactive expression,
# so will be re-executed whenever datasetInput is re-executed
# so will be re-executed whenever datasetInput is invalidated
# (i.e. whenever the input$dataset changes)
output$summary <- renderPrint({
dataset <- datasetInput()