Shiny apps構建好之后，其運行與反應要快速才會吸引用戶；因此，在構建Shiny apps時，耗時計算代碼的放置顯得尤為重要。
#例子 - stockVis
##創建stockVis Shiny app
stockVis應用程序根據股票代碼查找股票價格，并將結果顯示為折線圖。
- 選擇要檢查的股票
- 選擇一系列要回顧的日期
- 選擇是否在y軸上繪制股票價格或股票價格的對數，
- 決定是否根據通貨膨脹調整價格。
注：注意，“為通貨膨脹調整價格”復選框還不能工作。本節的任務之一是修復這個復選框。
默認情況下，stockVis會顯示SPY代碼(整個標普500的一個指數)。要查找不同的股票，請鍵入雅虎財經能夠識別的股票符號。你可以在這里查看雅虎的股票代碼：here。一些常見的符號是GOOG(谷歌)、AAPL (Apple)和GS (Goldman Sachs)。
stockVis非常依賴quantmod包中的兩個功能:
- 使用getsymbols直接從雅虎財經(Yahoo finance)和圣路易斯聯邦儲備銀行(Federal Reserve Bank of St. Louis)等網站下載金融數據。
- 使用chartSeries在一個吸引人的圖表中顯示價格。
- stockVis還依賴于一個名為helpers.R腳本。它包含一個根據通貨膨脹調整股票價格的函數。
#復選框和日期范圍
stockVis應用程序使用了一些新的小部件:
- 日期范圍選擇器，使用dateRangeInput
- 用checkboxInput創建的幾個復選框。復選框小部件非常簡單。當復選框被選中時，它們返回TRUE，當復選框未被選中時返回FALSE。
- 這些復選框在ui對象中被命名為log和adjust，這意味著您可以在服務器函數中將它們作為input
adjust進行查找。
#簡化計算
檢查當您點擊“在對數尺度上繪制y軸”時會發生什么。input$log的值會改變，這會導致renderPlot中的整個表達式重新運行:
output$plot <- renderPlot({
data <- getSymbols(input$symb, src = "yahoo",
from = input$dates[1],
to = input$dates[2],
auto.assign = FALSE)
chartSeries(data, theme = chartTheme("white"),
type = "line", log.scale = input$log, TA = NULL)
})
當renderPlot重新運行時：
- 它使用getSymbols從Yahoo finance重新獲取數據
- 它重新繪制圖表。
這并不好，因為您不需要重新獲取數據來重新繪制繪圖。事實上，如果你過于頻繁地重新獲取數據，雅虎財經(Yahoo finance)會切斷你的服務(因為你開始看起來像個爬蟲機器人)。但更重要的是，重新運行getSymbols是不必要的工作，這會降低應用程序的速度并消耗服務器。
#響應表達式
可以限制在使用反應表達式的反應期間重新運行的內容。
使用reactive函數創建一個響應表達式,就像渲染render*函數。
例如，下面是一個反應式表達式，它使用stockVis的小部件從Yahoo獲取數據。
dataInput <- reactive({
getSymbols(input$symb, src = "yahoo",
from = input$dates[1],
to = input$dates[2],
auto.assign = FALSE)
})
當您運行表達式時，它將運行getSymbols并返回結果。您可以通過調用dataInput()在renderPlot中使用價格數據。
output$plot <- renderPlot({
chartSeries(dataInput(), theme = chartTheme("white"),
type = "line", log.scale = input$log, TA = NULL)
})
響應表達式比常規R函數更聰明一些。它們緩存數據。并知道它們的值何時已經更新。
第一次運行反應表達式時，該表達式將其結果保存在計算機的內存中。下一次調用響應表達式時，它可以返回這個保存的結果，而不進行任何計算(這會使應用程序更快)。
反應表達式只有在知道結果是最新的情況下才會返回保存的結果。如果反應表達式獲悉結果已經更新了(因為改變了小部件),表達式將重新計算結果。然后返回新的結果并保存一個新的副本。反應表達式將使用這個新的副本，直到它也更新為止。
reactive()優勢：
- 反應式表達式在第一次運行時保存其結果。
- 下一次調用響應表達式時，它檢查保存的值是否已更新(即，它所依賴的小部件是否已更改)。
- 值沒更新，就可以調用先前保存的值，不進行任何計算；更新了的話，重新運算表達式計算結果。
可以用reactive()來防止Shiny重新運行不必要的代碼。考慮一下反應表達式將如何在下面的新stockVis應用程序中工作。
server <- function(input, output) {
dataInput <- reactive({
getSymbols(input$symb, src = "yahoo",
from = input$dates[1],
to = input$dates[2],
auto.assign = FALSE)
})
output$plot <- renderPlot({
chartSeries(dataInput(), theme = chartTheme("white"),
type = "line", log.scale = input$log, TA = NULL)
})
}
當你點擊“Plot y axis on the log scale”，輸入input$log將改變，renderPlot將重新執行。
- renderPlot將調用dataInput()
- dataInput將檢查dates和symb小部件是否沒有更改
- dataInput將返回其保存的股票價格數據集，而無需重新從雅虎獲取數據
- renderPlot將用選擇的的軸表達方式重新繪制圖表。
#依賴性
當在Shiny app修改了股票代碼，Shiny 也會知道，并且重新畫圖。
當遇到以下兩種情況，Shiny會重新運行：
- 對象的render*函數中的input中的值發生變化，
- 對象的render*函數中的反應性表達式已經更新
可以將反應表達式看作連接，鏈接input和output中的對象。output中的對象將響應鏈中任何下游所做的更新。(可以設計一個長鏈，因為反應表達式可以調用其他反應表達式)
#修復 “Adjust prices for inflation”
現在來修復 “Adjust prices for inflation”，用戶就能夠根據通貨膨脹調整的價格和未調整的價格之間切換。
server <- function(input, output) {
dataInput <- reactive({
getSymbols(input$symb, src = "yahoo",
from = input$dates[1],
to = input$dates[2],
auto.assign = FALSE)
})
output$plot <- renderPlot({
data <- dataInput()
if (input$adjust) data <- adjust(dataInput())
chartSeries(data, theme = chartTheme("white"),
type = "line", log.scale = input$log, TA = NULL)
})
}
#總結
通過使用reactive()模塊化代碼，可以加快應用程序的速度.
- reactive()接受輸入值或其他反應表達式的值，并返回一個新值
- reactive()保存它們的結果，并且只會在輸入發生更改時重新計算
- 使用reactive({ })創建響應表達式
- 調用reactive()結果，使用reactive expressions名稱加括號
- dataInput <- reactive({})的結果調用方法是dataInput();dataInput() 中有多個對象時，使用dataInput()$對象名調用
- 只有在
reactive()或render*中可以使用reactive()
#原文：
系列文章：
R shiny教程-1：一個 Shiny app的基本組成部分
R shiny教程-2：布局用戶界面
R shiny教程-3：添加小部件到Shiny App
R shiny教程-4：Shiny app響應式結果展示
R shiny教程-5：調用R程序和導入數據
Shiny Server安裝
