闪亮的反应表中的递归更改

Question

  

以下代码是我原始问题的简单版本。   该代码应按顺序执行以下步骤：

1. 该表格将显示整个“ mtcars”
2. 每次单击“一半”按钮时，它应显示以前数据的一半
3. 每次单击One3按钮时，它应显示以前数据的三分之一

  

**有人可以告诉我如何使用reactValues等解决问题吗？

static

Answer 1

不需要eventreactive作为reactiveValues(tbl = mtcars)的默认值，即mtcars会出现在output$tbl上，直到用户按下Half，然后它将自动更新在反应链中。

server = function(input, output, session){
    data <- reactiveValues(tbl = mtcars)

    observeEvent(input$Half,{
      data$tbl <- data$tbl[1:(round(nrow(data$tbl)/2)),]
    })

    output$tbl <- renderDT(data$tbl)

  }