使用选定的行来对 r shiny 中的另一个表进行子集化

Question

我对在 R Shiny 中使用 DT 不熟悉。基本上我在这里尝试做的是使用第一个表中的选择值来过滤第二个表。

我的 Ui.r 是

library(shiny)
library(shinydashboard)
 ui <- dashboardPage(skin="green",
                dashboardHeader(title="Inventory Management"),
                dashboardSidebar(disable = TRUE),
                dashboardBody(fluidRow(column(4,box(status="success",
                             uiOutput("Firstselection"),
                             br(),
                             uiOutput("Secondselection"))
                             ),
                             column(4,infoBoxOutput("salesbox")),
                             column(4,infoBoxOutput("Runoutbox")),
                             column(4,infoBoxOutput("Excessbox"))),
                             actionButton("actionbtn","Run"),
                fluidRow(tabBox(tabPanel(
                  DT::dataTableOutput(outputId="table"),title = "Stock Available for the category chosen",width = 12),
                  tabPanel(DT::dataTableOutput(outputId="asso"),title = "Associated products",width = 12)))

                ))

我的服务器是

server <-function(input, output, session) {
observeEvent(input$actionbtn, {source('global.r',local = TRUE)
#choose sub category based on category
output$Firstselection<-renderUI({selectInput("ray",
                                             "Category:",
                                             c("All",unique(as.character(bestpred$lib_ray))))})
output$Secondselection<-renderUI({selectInput("sray",
                                              "Sub Category:",
                                              c("All",unique(as.character(bestpred[bestpred$lib_ray==input$ray,"lib_sray"]))))})

# Filter data based on selections
output$table <- DT::renderDataTable({
  data <- bestpred
  if (input$ray != "All"){
    data <- data[data$lib_ray == input$ray,]
  }
  if (input$sray != "All"){
    data <- data[data$lib_sray == input$sray,]
  }
  data
},filter="top"
)
output$salesbox<-renderInfoBox({infoBox("Total Sales",sum(data()$Total_Sales),icon = icon("line-chart"))})
output$Runoutbox<-renderInfoBox({infoBox("Total Runout",sum(data()$status=="Runout"),icon = icon("battery-quarter"))})
output$Excessbox<-renderInfoBox({infoBox("Total excess",sum(data()$status=="Excess"),icon = icon("exclamation-triangle"))})



output$asso <- DT::renderDataTable({
  asso <- test1
  s=data[input$tablatable_rows_selected,1]
  asso <- asso[asso$num_art == s,]
  asso
},filter="top")



})}

所以当我在输出table 中选择一行时，我想将其用作我的asso 表的过滤器

此代码不会弹出任何错误，但输出表 asso 始终为空

Answer 1

在下面找到一个通用的解决方案： 改编自这里：https://yihui.shinyapps.io/DT-rows/

library(shiny)
library(DT)

server <- shinyServer(function(input, output, session) {

  output$x1 = DT::renderDataTable(cars, server = FALSE)

  output$x2 = DT::renderDataTable({
    sel <- input$x1_rows_selected
    if(length(cars)){
      cars[sel, ]
    }

  }, server = FALSE)  

})


ui <- fluidPage(

  fluidRow(
    column(6, DT::dataTableOutput('x1')),
    column(6, DT::dataTableOutput('x2'))
  )

)

shinyApp(ui, server)