r - 選択入力の選択肢は、ファイル入力 .csv ファイルの列の一意の値です

Question

y 軸変数がアップロードされた .csv ファイルからの列の一意の値になる光沢のあるアプリを開発しようとしています。Spまで、列名を読み取ってselectInputの選択肢として設定できますが、列の一意の値はできません。列を読み取って選択するための私のコードは

    library(shiny)

myData <- NULL
ui <- fluidPage(

  titlePanel("My R Shiny App"),

  sidebarPanel(

    fileInput(
      'file', 
      'Choose file to upload.'
    ),

    selectInput(
      "y_input", 
      label = h5("Select Time Series/Response Variable"),
      ""
    )

  )

)

server <- function(input, output, session) {

  inFile <- reactive({
    if (is.null(input$file)) {
      return(NULL)
    } else {
      input$file
    }
  })

  myData <- reactive({
    if (is.null(inFile())) {
      return(NULL)
    } else {
      read.csv(inFile()$datapath)
    }
  })

  observe({
    updateSelectInput(
      session,
      "y_input",
      choices=names(myData()))

  })

}
shinyApp(ui=ui, server=server)

たとえば、データセット：

Geography   Measure Time    Value
abc Meause A    2011    4
abc Meause A    2012    5
abc Meause B    2013    6
cba Meause B    2014    7
cba Measure C   2015    8
cba Measure C   2016    9
bac Meause A    2011    10
bac Meause A    2012    4
bac Meause B    2013    5
abc Meause B    2014    6
cba Measure C   2015    7
bac Measure C   2016    8

y 軸の選択については、列 Geography の abc、cba、bac の一意の値が必要です。任意のアイデアや提案。