inpboxk7k7(vlabel, vtitle, inp)
inpboxk7k7.png
To get the menu, just use the following code:
vlabel<-c('a1','a2','a3','a4','a5','a6','a7','b1','b2','b3','b4','b5','b6','b7')
vtitle<-c('title1','title2')
inp<-c(rep('FALSE',7),rep('TRUE',7))
ans<-inpboxk7k7(vlabel,vtitle,inp)