R shiny, getting dynamically computed choices from selectInput in the server function

Question

ui <- fluidPage(
  selectInput(
    "select_id",
    "Select Name",
    choices = c("A", "