powered by
inpboxc(vlabel, vcombo, inp)
vlabel<-c('combo list')
vcombo<-c('a','b','c','d')
inp<-c('0')
ans<-inpboxc(vlabel,vcombo,inp)