在 Shiny 中链接两个数据表输出

如何解决在 Shiny 中链接两个数据表输出

我试图在不使用额外选项卡的情况下从另一张桌子打开一张桌子。我有以下代码可以同时显示 2 个表，但我希望第二个表仅在单击第一个表时可见。所以，我认为需要某种点击（链接）来使第二个表可见，在此之前只需要显示第一个表。

strategy.equity

非常感谢任何帮助。

解决方法

我们可以在这里使用 shinyjs 包 show/hide 函数。

library(shiny)
library(shinyjs)

ui <- dashboardPage(
  dashboardHeader(),dashboardSidebar(),dashboardBody(
    useShinyjs(),box(width=3,status="primary",solidHeader=T,collapsible=T,title="Summary",DT::dataTableOutput("mytable_summary")),title="More Data",DT::dataTableOutput("mytable"))
    
  )
)


server <- function(input,output) {
  rv <- reactiveValues(flag = FALSE)
  output$mytable_summary <-  DT::renderDataTable({mydf_agg})
  output$mytable <-  DT::renderDataTable({  mydf })
  observeEvent(input$mytable_summary_cell_clicked,{
    if(rv$flag) show('mytable')
    else hide('mytable')
    rv$flag <- !rv$flag 
  })
  
  
}

# Run the application 
shinyApp(ui = ui,server = server)