mrzung <mrzung46 <at> gmail.com> writes:
>
> hi, what I want to do is put a function result(output) into gtext area.
> short example is following,
>
> require("gWidgetstcltk")
> options(guiToolkit = "tcltk")
>
> win<-gwindow()
> input<-gedit("",con=win)
> run<-gbutton("run",con=win,handler=function(h,...){
> y<<-as.numeric(svalue(input))+1
> })
> outarea<-gtext("",con=win)
>
> in this case, I want to put "y" value into "outarea" whenever click the
> "run" button.
> specifically, I want to solve this problem by gWidgetstcltk.
>
> Thanks
>
The following shows how you can do this. The main answer is
use svalue<- to set the contents of the gtext area, or use
insert() to append text.
library(gWidgets)
options(guiToolkit="tcltk")
w <- gwindow("output", visible=FALSE)
g <- ggroup(cont=w, horizontal=FALSE)
g1 <- ggroup(cont=g)
input <- gedit("", cont=g1, expand=TRUE)
btn <- gbutton("run", cont=g1)
output <- gtext("", cont=g)
visible(w) <- TRUE
run <- function(h,...) {
val <- svalue(input)
svalue(output) <- as.numeric(val) + 1
}
sapply(list(btn, input), addHandlerChanged, handler=run )
______________________________________________
R-help@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.
