r - 如何在数据更新的某些行上扩展可反应性？

Question

请参阅下面的简单应用程序。它从响应数据中删除点击值。

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)

我的目标是展开表格，单击表格内容更新等删除按钮，然后让我的表格与表格更新前一样展开。

reactable::getReactableState没有向我提供有关事件扩展内容的信息。

即使我以某种方式发现哪一行被展开，我如何在 reactable() 中指定最初展开哪一行？