在R Shiny中使用outputOptions时出错

Question

我正在尝试使用outputOptions的{​​{3}}应用程序中有一个选择框，以便它将呈现使用shiny生成的报告中的所有选项卡。以下是该代码：

observeEvent(input$tab, {
  if (input$tab == "fruits"){
    choices <- c(
      "Apples",
      "Oranges"
    )
  }
  else if (input$tab == "vegetables") {
    choices <- c(
      "potatoes",
      "squash"
    )
  }

  else {
    choices <- c(
      "berries",
      "onions"
    )
  }
  updatePickerInput(session,
                    inputId = "selected_metric",
                    choices = choices)
})

outputOptions(output, "selected_metric", suspendWhenHidden = FALSE)

以下是我得到的错误

  

.subset2（x，“ impl”）$ outputOptions（name，...）中的错误：selected_metric不在输出对象列表中