Shiny Reactivity Explaination (ObserveEvent 사용)

Question

Shiny의 반응성 행동에 대해 아래의 간단한 코드를 사용하여 약간의 명확성을 얻으려고합니다.

y가 앱에서 업데이트되면 그래프가 업데이트됩니다.
x가 앱에서 업데이트되면 그래프가 업데이트되지 않습니다.

Shiny의 튜토리얼을 읽었으며 observeEvent에서 test() 및 plot() 함수를 모두 래핑 했으므로 두 매개 변수가 변경 될 때 그래프가 업데이트되지 않아야합니다.

누군가가이 논리를 설명하는 데 도움을 줄 수 있습니까?

library(shiny) 

test <- function(x){x*2} 

shinyServer(function(input, output, session) { 

    observeEvent(input$run, { 
    x = test(input$x) 
    output$distPlot <- renderPlot({ 
     if(input$y){ 
     x = x+2 
     } 
     plot(x) 
    }) 
    }) 

}) 

shinyUI(fluidPage(

    sidebarLayout(
     sidebarPanel(
     numericInput("x", "x:", 10), 
     checkboxInput("y", label = "y", value = FALSE), 
     actionButton("run", "run") 
    ), 

    mainPanel(
     plotOutput("distPlot") 
    ) 
) 
)) 

Answer 1

당신이 renderPlot의 내부 선 x = test(input$x)를 넣어 경우가 반응 할 때 X 또는 Y의 변화 중 하나. 본질적으로 관찰자는 처음으로 동작 버튼을 클릭 할 때 반응 출력을 생성 한 다음 내부의 입력 변경에 반응하는 반응 요소 만 가지고 있습니다. 희망이 도움이됩니다.

그래프가 버튼을 클릭 할 때만 업데이트되도록하려면 그래프로 표시되는 데이터를 eventReactive에 넣고 그래프의 입력으로 사용해야합니다. 이 같은

뭔가 : 이것에 대한

data <- eventReactive(input$run, { 
    x = test(input$x) 
    if(input$y){ 
     x = x+2 
    } 
    x 
    }) 
output$distPlot <- renderPlot({ 
    plot(data()) 
})