# NOT RUN {
# }
# NOT RUN {
object=new("ref_list")
win=gwindow()
group=ggroup(container=win,horizontal=FALSE)
object<-charge(object,vecteur=c("choice1","choice2"),label="please choose")
choice(object)
# }
Run the code above in your browser using DataCamp Workspace