R mengkilap Tautan antar halaman dengan paket DT

Saya sedang membangun aplikasi yang memiliki 2 fluidPage(). fluidPage() pertama memiliki tabel data dengan hyperlink di satu kolom, yang ditautkan dengan fluidPage() lainnya.

Saat mencari skenario ini, saya menemukan solusi yang tertaut ke tabPanel() lainnya.

Saya mencoba membuat dua fluidPage() seperti ini

library(shiny)
library(DT)

server <- function(input, output) {
  output$iris_type <- DT::renderDataTable({
    datatable(data.frame(Species=paste0("<a href='/id#filtered_data'",
                                        "alt='",unique(iris$Species),"'",                                                 
                                        "onclick=\"",
                                        "$('#filtered_data').trigger('change').trigger('shown');",
                                        "Shiny.onInputChange('species', getAttribute('alt'));",
                                        "\">",
                                        unique(iris$Species),
                                        "</a>")),
              escape = FALSE)
  })
  
  output$filtered_data <- DT::renderDataTable({
    if(is.null(input$species)){
      datatable(iris)
    }else{
      datatable(iris[iris$Species %in% input$species, ])
    }
  })
}

ui <- shinyUI(fluidPage(
  mainPanel(
    tabsetPanel(
      tabPanel("Iris Type", DT::dataTableOutput("iris_type"))
    ))
),
fluidPage(
mainPanel(
  DT::dataTableOutput("filtered_data")
)
)

)

shinyApp(ui = ui, server = server)

Saya menerima pesan kesalahan

Error in shinyUI(fluidPage(mainPanel(tabsetPanel(tabPanel("Iris Type",  : 
  unused argument (fluidPage(mainPanel(DT::dataTableOutput("filtered_data"))))

Adakah yang bisa memberikan solusi yang sesuai ketika mengklik species tertentu, tabel terkait harus ditampilkan di halaman lain daripada ditampilkan di tab lain?

Terima kasih sebelumnya!!!