
inpboxk6k6e6(vlabel, vtitle, inp)
inpboxk6k6e6.png
To get the menu, just use the following code:
vlabel<-c('a1','a2','a3','a4','a5','a6','b1','b2','b3','b4','b5','b6','c1','c2','c3','c4','c5','c6')
vtitle<-c('title1','title2')
inp<-c(c('A','B','C','D','E','F'),rep('FALSE',6),rep('TRUE',6))
ans<-inpboxk6k6e6(vlabel,vtitle,inp)