Shiny应用基础（6）：数据响应的触发与阻止

1 数据响应

只要运行过shiny应用程序，你肯定已经看到shiny对用户数据的响应是“即时”的：只要数据发生改变，服务器就会重新处理这些数据并呈现新的结果。默认情况下，如果server端某个代码块包含有一些input，那么无论哪个input的值发生变化时这个代码块就会再运行一次。

这部分没用太多新的内容，我们补充说明一个函数：reactive。

前面我们使用的server端函数都是自动响应数据变化的函数。但那些都是“动作”类型的函数，如renderPlot进行绘图，renderText输出文本，observe监测ui端变化并响应。如果server端需要一个仅用于存储ui端数据的变量，该怎么做呢？很自然的想法是直接使用赋值语句：

shinyApp(
    ui = fixedPage(
        textInput('itx', '请随便输入'),
        textOutput('otx', container=pre)
    ),
    server = function(input, output, session) {
        itx <- input$itx  ## 直接使用赋值语句可以吗？？
        output$otx <- renderPrint({
            itx
        })
    }
)

但上面的代码是不行的，shiny（至少现在的版本）不允许在规定的函数环境外面使用input数据，更不要说用这些变量存储数据供后面的代码使用。即使是这么简单的赋值，也需要使用规定的函数：reactive。把上面server中的代码改成下面代码就可以运行了：

itx <- reactive({input$itx})
output$otx <- renderPrint({
    itx()
})

reactive的返回值是一个结构structure，而R语言中结构是函数，所以得用 itx() 这样的函数形式来使用数据。

如果变量的值不使用input列表，这里有两种赋值方法：

server = function(input, output, session) {
    var1 <- list(a=1, b=2, c=3)
    var2 <- reactiveValues(a=1, b=2, c=3)
}

• 第一方式直接赋值给var1，那么var1可以在server的其他环境（如observe）内使用，但不能修改/重新赋值，相当于常量，不可能触发数据响应
• 第二种方式得到var2，它的值则可以在其他环境中修改，而且它的变化和input的变化一样，会触发数据响应。

这些处理方式有点让人费解，把简单的赋值操作搞得太复杂了点。

2 阻止响应

shiny对用户数据输入的自动响应虽然方便，但同时也带来不少问题：如果要调整很多参数但其实只需获取一次结果，会给服务器造成很大压力，无效运算非常多，客户端的响应也会变得非常慢。我们需要阻止一些数据输入触发程序响应，shiny提供的isolate函数有这样的作用。

isolate函数起到绝缘体的作用，它里面的input发生变化不会触发代码块的重新运行。运行下面程序有助于理解isolate的作用（shiny程序的运行方法不再重复，如不知道请参考第一节的内容）：

shinyApp(
    ui = fixedPage(
        textInput('itx1', '', value='1111'),
        textInput('itx2', '', value='2222'),
        textOutput('otx', container=pre)
    ),
    server = function(input, output, session) {
        output$otx <- renderPrint({
            a <- NULL
            isolate(a <- input$itx1)
            b <- input$itx2
            list(a=a, b=b)
        })
    }
)

• 代码块的运行（renderPrint）虽不响应isolate内部input的变化，但还会响应其他没用被isolate隔绝的input的变化
• isolate内的代码不会被跳过，代码块运行一次它就运行一次（上面代码中a的最终结果永远不会是NULL）
• isolate内的变量能够被isolate环境外的代码所使用

3 触发响应

理解了isolate的作用后要控制和触发shiny程序的响应是很容易的。留出一个input不isolate，就能大大减少不必要的数据响应。但更人性化的是设置一个响应按钮，由按钮触发响应。shiny对此有专门设定。

3.1 响应触发控件

shiny提供了两个专用控件函数：

## NOT RUN
actionButton(inputId, label, icon = NULL, ...)
actionLink(inputId, label, icon = NULL, ...)

除了产生的控件外观不一样外，两个函数的作用是一样的。它们的初始值是0，每按一次增加1。放在代码块中就可以由它们触发响应，很简单：

shinyApp(
    ui = fixedPage(
        textInput('itx', '', value=''),
        textOutput('otx', container=pre),
        actionButton('btn', '按钮', icon=icon('play-circle')),
        actionLink('lnk', '链接', icon=icon('play-circle'))
    ),
    server = function(input, output, session) {
        output$otx <- renderPrint({
            input$btn
            input$lnk
            isolate(input$itx)
        })
    }
)

3.2 集成环境

每个input都使用isolate来阻止响应是很繁琐的，稍不留神就可能遗忘。为方便应用，shiny开发者提供了两个函数。一个是事件类型的函数observeEvent，另一个eventReactive用于获取变量，分别对应observe和reactive函数。（类似功能的两个函数为什么命名规则不一致？怪异。）函数产生很多，但只需要设置前二：

## NOT RUN
observeEvent(eventExpr, handlerExpr, ...)
eventReactive(eventExpr, valueExpr, ...)

第一个参数一般使用button或link类input，但可用其他变量。第二个参数是表达式集合，多表达式用花括号隔离。第一个参数（即input）的值发生变化时运行第二个参数内的表达式。observeEvent不返回值，eventReactive有返回值。比如：

observeEvent(input$btn, {
                 output$otx <- renderPrint({
                     input$itx
                 })
             })

是不是很怪？正常一点的代码把数据和事件分开写：

dt <- eventReactive(input$btn, input$itx)
output$otx <- renderPrint({
    dt()
})

注意：eventReactive的返回值还是结构，是函数。

运行错误？OMG，为什么每次我都把 eventReactive 写成 reactiveEvent ?

---

作者: ZGUANG@LZU

Created: 2015-09-03 四 19:29

Emacs 24.4.1 (Org mode 8.2.10)