在R Shiny中如何将observeEvent替换为observe实现相同功能

observe和observeEvent的核心区别是observe会自动响应内部所有未被isolate()包裹的响应式变量，你只需要把原来observeEvent指定的触发事件变量保留为非隔离状态，其余用到的响应式变量用isolate()包裹，即可实现完全相同的功能，同时避免不必要的触发循环。

替换后的server代码片段 #

你只需要把原来的两个observeEvent替换为如下两个observe即可，其余代码无需修改：

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

  # 替换原来监听input$periods的observeEvent
  observe({
    # 只有input$periods变化会触发该observe
    new_period <- input$periods
    # input$matrix2的值用isolate包裹，不会触发该observe
    current_mat2_y <- isolate(input$matrix2[1,2])
    updateMatrixInput(
      session, inputId = "matrix2", 
      value = matrix(c(new_period, current_mat2_y),1,2,dimnames=list(NULL,c("X","Y")))
    )
  })
  
  # 替换原来监听input$matrix1的observeEvent
  observe({
    # 只有input$matrix1变化会触发该observe
    new_y <- input$matrix1[,1]
    # input$matrix2的值用isolate包裹，不会触发该observe
    tmpMat2 <- isolate(c(input$matrix2[,1],input$matrix2[,2]))
    tmpMat2[length(isolate(input$matrix2))/2+1] <- new_y
    updateMatrixInput(session,inputId="matrix2",value=matrix(tmpMat2,ncol=2,dimnames=list(NULL,c("X","Y")))
    )
  })
  
  # 其余原有代码保持不变
  plotData <- reactive({
    tryCatch(
      lapply(seq_len(ncol(input$matrix2)/2),
             function(i){
               tibble(
                 Scenario = colnames(input$matrix2)[i*2-1],
                 X = seq_len(input$periods),
                 Y = sumProd(input$periods,input$matrix2[,(i*2-1):(i*2), drop = FALSE])
               )
             }) %>% bind_rows(),
      error = function(e) NULL
    )
  })
  
  output$plot <- renderPlot({
    req(plotData())
    plotData() %>% ggplot() + 
      geom_line(aes(x = X, y = Y, colour = as.factor(Scenario))) +
      theme(legend.title=element_blank())
  })
}

修改后功能和原代码完全一致，可正常运行。

内容的提问来源于stack exchange，提问作者Curious Jorge - user9788072