inpboxe4ck(vlabel, vcombo, inp)
inpboxe4ck.png
To get the menu, just use the following code:
vlabel<-c('matrix1','matrix2','matrix3','matrix4','combo1','option1')
vcombo1<-c('a1','b1','c1','d1')
inp<-c('M','N','S','T',0,'TRUE')
ans<-inpboxe4ck(vlabel,vcombo1,inp)