3つのレベルのドロップダウンリストR

Question

選択学校にメニューを作ってみたいです。しかし、学校は都市に入れられていて、これは学科にあるので、私は3つの綱のドロップダウンリストでこれを必要とします。このコードは、部門や都市でうまく機能します。私は学校のために展開したときしかし、それは私にエラーを与える

おかげ

require(shiny) 

datas <- data.frame(directory = c(puntaje_2016_1$estu_reside_depto), file = c(puntaje_2016_1$estu_reside_mcpio) , cole = c(puntaje_2016_1$cole_nombre_sede)) 


runApp(list(
    ui = basicPage(
    sidebarPanel(
     selectInput("directory", "Select a directory", choices = levels(datas$directory), selected = levels(datas$directory)[1]), 
     tags$hr(), 
     selectInput("files", "Select files", choices = datas$file[datas$directory == levels(datas$directory)[1]], multiple = FALSE) 
    ## tags$hr() 
     ##selectInput("cole", "Select files", choices = datas$cole[datas$file == levels(datas$file)[1]], multiple = FALSE) 
     ) 
), 
    server = function(input, output, session) { 

observe({ 
    directory <- input$directory 
    updateSelectInput(session, "files", choices = datas$file[datas$directory == directory]) 
     }) 
##observe({ 
    ##files<-input$files 
    ##updateSelectInput(session, "coles", choice = datas$cole[datas$file == ##files]) 
    ## }) 
    } 
)) 

Answer 1

あなたがこれを行う必要はありません。

datas$file[datas$directory == directory] 

あなたはちょうどこの操作を行うことができます。

unique(data$file$directory) 

を