从 rshiny 仪表板侧边栏菜单中删除已选择的选项答案

【问题标题】：Remove an already selected option from an rshiny dashboard sidebar menu从 rshiny 仪表板侧边栏菜单中删除已选择的选项
【发布时间】：2018-01-31 10:33:34
【问题描述】：

我正在构建一个闪亮的仪表板，让我可以比较 2 支 NBA 球队互相比赛时的数据。以下是我的dashboardSidebar，它允许我选择2个团队。因为它是第二个菜单，所以默认为 sort(unique(season$team)) 中的第二项，即球队列表。我想做这样一个简单的团队被选为team1，而不是team2的选项。我该怎么做？

  dashboardSidebar(selectInput("team1", "Team 1:", sort(unique(season$team))),         
                   selectInput("team2", "Team 2:",
                   sort(unique(season$team)),selected = sort(unique(season$team))[2]))

【问题讨论】：

标签： r shiny

【解决方案1】：

使用更新选择输入。由于我无法访问您的数据框，因此我使用了 iris 数据框。更改数据框的虹膜。

把它放在你的用户界面中

selectInput("team1", "Team 1:", sort(unique(iris$Species))),
selectInput("team2", "Team 1:", "")

然后把它放到你的服务器中

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


  outVar = reactive({
     df = iris[iris$Species != input$team1,]
     df$Species
  })
   observe({
        updateSelectInput(session, "team2",
        choices = outVar()
    )})
}

【讨论】：