R блестящий реактивный график и выбор по умолчанию

Question

ОБНОВЛЕНИЕ: Q2 был дан ответ. Спасибо @Ben! Просто ищу помощь с Q1 и selectize.

Что у меня есть: С помощью selectize пользователь может искать пенсионный план. В1: Как я могу избежать плана по умолчанию и просто ввести «здесь»?

Что я хочу: хотя выбор плана работает нормально, я пытаюсь построить график возраст участников плана, когда этот план выбран. Q2: Как мне сделать вывод (возраст) реагирующим на ввод (имя плана)?

My ui.r :

fluidPage(    

  titlePanel("Atlantis Pension Dashboard"),
  sidebarLayout(      
    sidebarPanel(
      #Dynamic select type
      selectizeInput('Plan_Name', 'Search plan by keyword', choices = unique(Active$Plan_Name)),
      multiple = TRUE,

      #Static drop down
      selectInput('Plan_Name', "All plans", 
                  choices=unique(Active$Plan_Name)),
      hr(),
      helpText("Data from...")
    ),

    # Spot for hist
    mainPanel(
      plotOutput("agePlot")  
    )))

и мой server.r :

function(input, output) {

  Plan <- reactive(input$Plan_Name)

  # Dynamic plan select
  output$Plan_Name <- renderPrint({
    str(sapply(sprintf('Plan_Name'), function(id) {
      input[[id]]
    }, simplify = FALSE))
  })

  # Age histogram dependant on the chosed plan
  output$agePlot <- renderPlot({
    req(Plan())
    hist(Active[Plan()]$age)
  }

  )
}

То, что я пробовал: чертовски близко ко всему (глупость не помогает).