Remove no-longer-accurate statement from 03_reactivity

This commit is contained in:
Joe Cheng
2013-12-15 15:13:31 -08:00
parent 266f7a873f
commit 95ab392179

View File

@@ -111,9 +111,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,
@@ -128,15 +125,15 @@ shinyServer(function(input, output) {
# 1) This expression is automatically called to recompute the output
# 2) The new caption is pushed back to the browser for re-display
#
# Note that because the data-oriented reactive expression below don't
# depend on input$caption, those expression are NOT called when
# Note that because the data-oriented reactive expressions below don't
# depend on input$caption, those expressions are NOT called when
# input$caption changes.
output$caption <- renderText({
input$caption
})
# 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()