r - Returning data frame value in reactive selectinput for Shiny -

i'm trying populate dropdown selectinput dataframe in shiny application , can't seem work, here pared-down version:

datapr<-data.frame(type=c("analog", "digital", "mixed signal","analog"),process=c("bipolar","cmos","bicmos","bipolar"),funct=c("bjt","mux","mux","regulator")) 

if have dataframe start, shiny application calls , uses so:

ui.r  shinyui({ selectinput("type",h4("type:"),list("analog","digital","mixed signal")) selectinput("process",h4("process:"),"") })  server.r  shinyserver(function(input,output,session){ observe({updateselectinput(session,"process",choices=datapr$process[datapr$type==input$type]) }) 

what i'm getting out number instead of actual dataframe's entry , cannot seem use unname(), unique(), factor(), as.list() or straight-forward pull out entry is. used work before inception of selectizeinput added. appreciated.

this worked me:

ui.r

    library(shiny)       shinyui(fluidpage(              selectinput("type",h4("type:"),list("analog","digital","mixed signal")),             selectinput("process",h4("process:"),"")       )) 

server.r

    library(shiny)     datapr<-data.frame(type=c("analog", "digital", "mixed signal","analog"),                        process=c("bipolar","cmos","bicmos","bipolar"),                        funct=c("bjt","mux","mux","regulator"))     shinyserver(function(input,output,session){             observe({                     updateselectinput(session,"process",                                       choices=as.character(datapr$process[datapr$type==input$type]))             })     })