使用動作按鈕進行計算並在另一個觀察事件中使用

Question

假設我有兩個動作按鈕。當我按「Go！」時，我想計算一個值，然後按第二個操作按鈕，我想在另一個計算中使用計算的值。此代碼不能正常工作，並給出了這樣的錯誤：

「警告：錯誤observeEventHandler：對象‘_係數’未找到」

爲什麼不給我一個答案？

library(shiny) 

ui <- fluidPage(
    actionButton(inputId = "AB", label = "Go!"), 
    actionButton(inputId = "AB1", label = "Calculate!") 
) 

server <- function(input, output, session) { 
    observeEvent(input$AB,{ 
    coeff <- sum(1:15) 
    }) 

    observeEvent(input$AB1,{ 
    calculatedValue <- coeff*10 
    }) 

} 

shinyApp(ui = ui, server = server) 

Answer 1

你最好使用reactiveValues作爲內部observeEvent犯規知道什麼coeff是，因爲它僅僅認爲它是一個局部變量，所以下面試試這個代碼。你可以用v$coeff訪問值和v$calculatedValue

library(shiny) 

ui <- fluidPage(
    actionButton(inputId = "AB", label = "Go!"), 
    actionButton(inputId = "AB1", label = "Calculate!"), 
    textOutput("myValue") 
) 

server <- function(input, output, session) { 

    v <- reactiveValues() 

    observeEvent(input$AB,{ 
    v$coeff <- sum(1:15) 
    }) 

    observeEvent(input$AB1,{ 
    v$calculatedValue <- v$coeff*10 
    }) 
    output$myValue <- renderText(v$calculatedValue) 

} 
shinyApp(ui = ui, server = server)