R 数据表仅保留选定行。。错误：未实现这些类型的比较

我有一个datatable，我希望用户能够选择一行，并且只显示选定的行，如果他们取消选择该行，那么它将再次显示所有行。原因是我希望在过滤其他图表后使用额外的不动产。。。但我总是出错

大多数示例显示如何使用事件和观察来显示所选行或其值，但我找不到任何关于如何将所选行作为过滤器传递回去的信息

library(shiny)
shinyApp(
  ui = fluidPage(
    column(8, dataTableOutput("table"))
  ),

  server = function(input, output) {
    df <- reactive({
      if       (length(input$table_rows_selected) > 0)
      iris%>%
        filter(Species == iris[input$table_rows_selected]) 
      else iris             
      })

    output$table <- DT::renderDataTable({
      df()})

  }
)

---

下面是一个仅显示选定行的示例。它通过创建第二个表来显示所选行。如果用户单击第二个表的唯一一行，将显示完整的表

有光泽的图书馆 图书馆 shinyApp ui=fluidPage 第8列，uiOutputtables\U UI , 服务器=函数输入、输出{

---

v谢谢！我不能告诉你这有多大帮助，我真的很感激！