[R] Radio Buttons or similars

From: ermimi <ermimi__at_hotmail.com>
Date: Wed, 19 Mar 2008 16:50:27 -0700 (PDT)

Hello companions!!!

I have a function that creates a Radio Buttons, and I need that this function return the selected value in the Radio Buttons. I would like that, if somebody know as I could return the value, you say me as do it.

Next, I show the function

function1<-function(){

	require(tcltk)
	tt <- tktoplevel()
	rb1 <- tkradiobutton(tt)
	rb2 <- tkradiobutton(tt)
	rbValue <- tclVar("oranges")
	tkconfigure(rb1,variable=rbValue,value="apples")
	tkconfigure(rb2,variable=rbValue,value="oranges")
	tkgrid(tklabel(tt,text="Which do you prefer?"))
	tkgrid(tklabel(tt,text="Apples "),rb1)
	tkgrid(tklabel(tt,text="Oranges "),rb2)
	value<-0;
	aux_function<- function()
	{
	    rbVal <- as.character(tclvalue(rbValue))
	    tkdestroy(tt)
	    if (rbVal=="apples")
	    	tkmessageBox(message="Good choice!  An apple a day keeps the doctor
away!")
	    if (rbVal=="oranges")
	    	tkmessageBox(message="Good choice!  Oranges are full of Vitamin C!")
	    print(rbVal);
	    return(rbVal);

}
OK.but <- tkbutton(tt,text="OK",command=function() aux_function()) #OK.but <- tkbutton(tt,text="OK",command=function() value<<-aux_function()) tkgrid(OK.but) tkfocus(tt) #return(value)
}

Thanks in advance!
A greetings Luismi

-- 
View this message in context: http://www.nabble.com/Radio-Buttons-or-similars-tp16164495p16164495.html
Sent from the R help mailing list archive at Nabble.com.

______________________________________________
R-help_at_r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
Received on Wed 19 Mar 2008 - 23:53:41 GMT

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.2.0, at Thu 20 Mar 2008 - 01:30:27 GMT.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-help. Please read the posting guide before posting to the list.

list of date sections of archive