Ошибка при использовании outputOptions в R блестящий

Question

У меня есть поле выбора в блестящем приложении, которое я пытаюсь использовать outputOptions, чтобы оно отображало все вкладки в моем отчете, созданные с помощью r-markdown .Ниже приведен код для этого:

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 отсутствует в списке выходных объектов