R Shiny-带有DT包的页面之间的链接

问题描述

我正在构建一个应用程序，其中有2个fluidPage()。首先fluidPage()有一个数据表，该数据表的一列具有超链接，该数据表与其他fluidPage()链接。

在寻找这种情况时，我遇到了这个solution，它链接到另一个tabPanel()。

我试图这样创建两个fluidPage()

library(shiny)
library(DT)

server <- function(input,output) {
  output$iris_type <- DT::renderDataTable({
    datatable(data.frame(Species=paste0("<a href='#filtered_data'","alt='",unique(iris$Species),"'","onclick=\"","$('#filtered_data').trigger('change').trigger('shown');","Shiny.onInputChange('species',getAttribute('alt'));","\">","</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)

我收到一条错误消息

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

任何人都可以提供合适的解决方案，即在单击特定的species时，相应的表应该显示在另一页上而不是显示在另一个选项卡上？

提前谢谢！

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）