如何通过更新和多重选择将多个输入构建到我闪亮的应用程序中？

我正在构建一个flex dashboard / shiny应用程序与datatable并尝试建立两个输入作为此选择datatable每个选项都有一个“全部”选项。第一个问题是如何限制第二个选择"user"通过选择第一选择"team"?

然后，使用这些输入，我想将我的数据子集到两个选择的任意组合。 Team All，用户“Darwin D”将返回一个单行数据表，其中包含他的姓名、团队和要添加的其他指标等。

下面是 Flex Markdown 文档的所有代码：

---
title: "example"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    runtime: shiny
---

```{r setup, include=FALSE}
library(shiny)
library(shinydashboard)
library(flexdashboard)
library(magrittr)
library(feather)
library(anytime)
library(data.table)
library(DT)
library(datasets)


Name <- c("Allan A","Barbara B","Charles C","Darwin D","Evelyn E","Frank F","Greg G","Hans H")
Team <- c(1,2,3,3,2,1,2,2)
users <- data.frame(Name,Team)
remove(Name,Team)
```



Inputs {.sidebar}
=======================================================================

### Input Variables

```{r global_input}
# input variable to call selection, name of field, selections/options variable
dateRangeInput('dateRange',
     label = 'Date range input: yyyy-mm-dd',
     start = Sys.Date() - 8,
     end = Sys.Date() - 1,
     min = "2013-01-01",
     max = Sys.Date() -1
   )

selectInput("teaminput","Team", c("All",unique(users$Team)))

observe({
    if( input$teaminput == "All" ) {
        subDT <- copy( users )
    } else {
        subDT <- users[ users$Team == input$teaminput, ]
    }

    updateSelectInput(
        "userinput",
        label = "User Name",
        choices = c( "All", unique(subDT$Name ) )
    )
})
```

### Intake Coordinator KPIs

```{r daily_table}
# reactive data object based on inputs above
daily_dt <- reactive({
  if(input$teaminput == "All"){
      subDT
}  else{
    subset(subDT$Team == input$teaminput)
}
  })

# render DT datatable object with sorts/search
renderDataTable(daily_dt())
```

您可能想使用 2reactive，第一个按 Team 过滤 data.frame，第二个按 Name 过滤第一个的结果：

---
title: "example"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    runtime: shiny
---

```{r setup, include=FALSE}
library(DT)

users <- data.frame(
  Name = c("Allan A","Barbara B","Charles C","Darwin D","Evelyn E","Frank F","Greg G","Hans H"),
  Team = c(1,2,3,3,2,1,2,2), stringsAsFactors = FALSE)
```

Inputs {.sidebar}
=======================================================================
### Input Variables

```{r global_input}
selectInput("teaminput","Team",c("All", unique(users$Team)), selected="All")
selectInput("userinput","User Name", c("All", unique(users$Name) ), selected="All")

teamFiltered <- reactive(users[input$teaminput=="All" | users$Team==input$teaminput,])

observe(updateSelectInput(session,"userinput", choices = c("All", unique(teamFiltered()$Name)), selected="All"))
```

Results
=======================================================================
### Intake Coordinator KPIs

```{r daily_table}
userFiltered <- reactive(teamFiltered()[input$userinput=="All" | teamFiltered()$Name==input$userinput,])

renderDataTable(userFiltered())
```