R Shiny Использование текстовых входов для заполнения выбора SelectInput

Question

Я хочу создать приложение Shiny, которое использует 2 пользовательских значения textInput для реактивного заполнения выпадающего списка из selectInput.

UI

ui <- fluidPage(
    sidebarLayout(
        sidebarPanel(
          textInput(inputId = 'specify_team', label = "Specify Team", placeholder= "Enter Team Name"),
          textInput(inputId = 'specify_year', label = "Specify Year", placeholder= "Enter Year"),
          selectInput("dropdown", 'Select Opponents', choices = "", selected = NULL, multiple = TRUE)
    ),
        mainPanel()
  )
)

Итак, я хочу использовать строки пользовательского ввода define_team и define_year, чтобы заполнить варианты моего раскрывающегося списка.

Для этого мне нужно используйте эти значения в пользовательской функции ввода, которая будет возвращать таблицу данных. Исходя из этой таблицы данных, я объединю два столбца данных, чтобы создать список, который будет содержать варианты для моего раскрывающегося списка. Я думаю, что у меня проблемы с доступом к этим обновленным значениям ввода текста и с проблемой, из-за которой я не могу вызвать эту функцию с пустыми значениями в этих двух текстовых вводах

Сервер

server <- function(input, output,session) {
  
  specify_team <- reactive({input$specify_team})
  specify_year <- reactive ({input$specify_year})
  
  
  observe({
    if (!is.null(input$specify_team) || !is.null(input$specify_year)){
        sched_up <-get_schedule(specify_team(), specify_year)
        items_up <- as.character(paste(sched_up$opponent, sched_up$date))
        updateSelectInput(session, "dropdown", choices = items_up)
      }
  })      

Итак, мой лог c здесь, чтобы проверить, заполнены ли входы, а затем попробовать мой лог c для заполнения выпадающего списка ... но не могу кажется, это понять.