如何在数据更新时在某些行上展开reactable？

下面是一个简单的应用程序。它会在单击时从反应数据中删除值

library(reactable)
iris2 = iris
#App
ui = fluidPage(
  hr(),
  actionButton('delete','Delete row 51'),
  hr(),
  reactableOutput('table')
)

server = function(input, output){
  data <- reactiveVal(iris2)
  output$table <- renderReactable({
    reactable(
      data = data(),
      groupBy = 'Species'
    )
  })
    observeEvent(input$delete,{
      df = data() #code easy to read
      df = df[-51,]
      data(df)
    })
}

shinyApp(ui, server)

库（可反应）
虹膜2=虹膜
#应用程序
ui=fluidPage(
hr（），
actionButton（'delete'，'delete row 51'），
hr（），
reactableOutput（'表'）
)
服务器=功能（输入、输出）{
数据