See example for the element order in the vectors :
inpboxr2.png
To get the menu, just use the following code:
vlabel<-c('options','option1','option2')inp<-c('TRUE','FALSE')ans<-inpboxr2(vlabel,inp)
References
Lawrence M.F.,Verzani J., (2012) Programming Graphical User Interfaces in R,CRC Press Taylor & Francis Group