powered by
inpboxr2(vlabel,inp)
vlabel<-c('options','option1','option2')
inp<-c('TRUE','FALSE')
ans<-inpboxr2(vlabel,inp)