search for: tclvalue

...rval=5,command=function(...)tkyview(levels.list2,...)) tkgrid(levels.list2,levels.list2.scroll) vec<-c("a","b",""," "," ") tkdelete(levels.list2,"0","end") for (var in vec) {tkinsert(levels.list2, "end", var)} tclvalue(tkget(levels.list2,"0"))# a tclvalue(tkget(levels.list2,"1"))# b tclvalue(tkget(levels.list2,"2"))# "" tclvalue(tkget(levels.list2,"3"))# " " it's ok tclvalue(tkget(levels.list2,"4"))# " " it's ok library(...

Hello, On Mac OS X, certain Aqua/Quartz UI functionality requires an application to be launched from within an app bundle, or (alternatively) requires a Carbon application with a resource fork. Playing with the wxWidgets distribution, I discovered that it is quite easy and transparent to make such a Carbon app from (I guess) any command line application. When applied to the R executable called

Hello, On Mac OS X, certain Aqua/Quartz UI functionality requires an application to be launched from within an app bundle, or (alternatively) requires a Carbon application with a resource fork. Playing with the wxWidgets distribution, I discovered that it is quite easy and transparent to make such a Carbon app from (I guess) any command line application. When applied to the R executable called

Hi again R People: This works fine: > library(tcltk) > a <- tclVar("4.5") > as.numeric(tclvalue(a)) [1] 4.5 > #But if you have: > b <- tclVar("pi") > as.numeric(tclvalue(b)) [1] NA Warning message: NAs introduced by coercion > Is anyone aware of a way around this, please? thanks, Erin -- Erin Hodgess Associate Professor Department of Computer and Mathematical Sci...

...I have a problem to assign a value with tcl/tk ths is the code ( it should be simple to understand) : library(tcltk) valA<-tclVar("0") valB<-tclVar("0") valC<-tclVar("0") id<-"A" out<-"1" out2<-"2" print(paste("tclvalue(val",id,")",sep="")) # ok print(as.name(paste("tclvalue(val",id,")",sep=""))) #ok print(eval(as.name(paste("val",id,sep="")))) #seems to be OK print(tclvalue(eval(as.name(paste("val",id,sep=""))))) #ok pr...

...g points L <- length(I0); #points to plot tt <- tktoplevel() left <- tclVar(1) oldleft <- tclVar(1) right <- tclVar(L) cury <- tclVar(' ') curx <- NA tmpusr <- numeric(4) tmpplt <- numeric(4) f1 <- function(){ lleft <- as.numeric(tclvalue(left)) rright <- as.numeric(tclvalue(right)) x <- seq(lleft,rright,by=1) par(bg='black', fg='green', col='white', col.axis='white', col.lab='magenta', col.main='blue', col.sub='cyan') plot(x,I0[x], type='s') ## p...

...) L <- length(myData); tt <- tktoplevel()#cursor='crosshair') left <- tclVar(1) oldleft <- tclVar(1) right <- tclVar(L) cury <- tclVar(' ') curx <- NA tmpusr <- numeric(4) tmpplt <- numeric(4) f1 <- function(){ lleft <- as.numeric(tclvalue(left)) rright <- as.numeric(tclvalue(right)) x <- seq(lleft,rright,by=1) par(bg='black', fg='green', col='white', col.axis='white', col.lab='magenta', col.main='blue', col.sub='cyan') plot(x,myData[x], type='s'...

Dear R users graphing with plot(x) seams to work for a small length(x), when length(x) is too large it seams to clutter the display, a solution would be to display subsets of x at a time, yet a better way which I hope R supports is to place a sliding bar on the display window to control length(x) and thus the resolution, which will involve auto scaling the y axis as well as automatically

Hi, I have a large plot that I would like to display in a graphics device with scroll bars. I therefore decided to use the windows function like so... mag<- length(tick) windows(height=mag/8, width=10, rescale="fixed") However, when I use the scroll bars the device (i guess) is re-drawing the plot. Is there any way in which I can get it to 'smooth scroll'? Kind regards,

...dynamic a checkbutton, try to do it with a vector be charged automaticamente but not works, for example library(tcltk) tt<-tktoplevel() f<-tkframe(tt) tkpack(f) i<-2 if (i==1) {b1<-tkcheckbutton (f,text="b1",variable="b1",relief="raised");tkpack(b1);print(tclvalue ("b1"))}else if (i==2) {b1<-tkcheckbutton (f,text="b1",variable="b1",relief="raised");tkpack(b1);print(tclvalue ("b1"));b2<-tkcheckbutton(f,text="b2",variable="b2",relief="raised");tkpack (b2);print(tclvalue(&quot...

Hi All... In an attempt to read data from a file and feed it into a tcltk entry box, I've run into difficulties. The following hopefully describes my dilemma: tclvalue(x.var) <- 5 Works fine. tclvalue("x.var") <- 5 Does not work. [Error: Target of assignment expands to non-language object] tclvalue(eval(parse(text="x.var"))) <- 5 Also, does not work. Any ideas on how to get this to work? Thanks in advance! J *******************...

Hello everybody, I am wondering if it is possible to create a gui to plot a time series that is very big, it's an EEG signal of 20mins. What I would like to do is plot the first 5mins, then have a button on the gui that plots the next 5mins when pushed. Is it possible? Thanks in advance ! Gael.

Greetings: I wish to use a tcl/tk widget to ask for user-selected parameter values. My widget works ? it asks for and returns to my workspace the stuff I need. Here is a snippet of my code: ############################### OnOK <- function() { LOG.X <<- as.logical(as.character(tclvalue(log.X.buttonValue))) LOG.Y <<- as.logical(as.character(tclvalue(log.Y.buttonValue))) natural.units.?.decision <<- as.double(as.character(tclvalue(?.decision))) natural.units.left.censor <<- as.double(as.character(tclvalue(left.censor))) natural.units.right.censo...

...it works. But I can't succeed in Linux. In short: ---------------------------------------------------- X11() ... res <- tkmessageBox(title="Beenden?", message="Vor dem Beenden als PDF speichern?", icon="question", type="okcancel") if (tclvalue(res) == "ok") ... ----------------------------------------------------- So far every thing is OK. Now I want a box the user should fill in the choosen filename (with a default) and then -------------------- pdf(filename) ... -------------------- I experimented with tkgetSaveFile(). But i...

...tclVar?, ?as.double.tclObj?, ?as.integer.tclObj?, ?as.logical.tclObj?, ?as.raw.tclObj?, ?print.tclObj?, ?[[.tclArray?, ?[[<-.tclArray?, ?$.tclArray?, ?$<-.tclArray?, ?names.tclArray?, ?names<-.tclArray?, ?length.tclArray?, ?length<-.tclArray?, ?tclObj.tclVar?, ?tclObj<-.tclVar?, ?tclvalue.default?, ?tclvalue.tclObj?, ?tclvalue.tclVar?, ?tclvalue<-.default?, ?tclvalue<-.tclVar?, ?close.tkProgressBar? were declared in NAMESPACE but not found Error : .onLoad failed in loadNamespace() for 'tcltk', details: call: fun(libname, pkgname) error: Tcl/Tk support is not avai...

...ter.tclVar?, ?as.double.tclObj?, ?as.integer.tclObj?, ?as.logical.tclObj?, ?as.raw.tclObj?, ?print.tclObj?, ?[[.tclArray?, ?[[<-.tclArray?, ?$.tclArray?, ?$<-.tclArray?, ?names.tclArray?, ?names<-.tclArray?, ?length.tclArray?, ?length<-.tclArray?, ?tclObj.tclVar?, ?tclObj<-.tclVar?, ?tclvalue.default?, ?tclvalue.tclObj?, ?tclvalue.tclVar?, ?tclvalue<-.default?, ?tclvalue<-.tclVar?, ?close.tkProgressBar? were declared in NAMESPACE but not found Error : .onLoad failed in loadNamespace() for 'tcltk', details: call: fun(libname, pkgname) error: Tcl/Tk support is not availa...

...-tclVar("relax") number<-tclVar("100") top <-tktoplevel() show <-tklabel (top,textvariable=number) up <-tkbutton(top,text="up") down <-tkbutton(top,text="down") exit <-tkbutton(top,text="exit",command=function() tclvalue(state)<-"exit" ) tkpack(show,up,down,exit) tkbind(up, "<Enter>",function() tclvalue(state)<-"up" ) tkbind(up, "<Leave>",function() tclvalue(state)<-"relax" ) tkbind(down,"<Enter>",function() tclvalue(st...

...is displayed upon GUI initialization, later changes to the .dataset won't be reflected in the display. -- dataset.header <- tclVar("header information") .dataset <- 0 loaddataset <- function(.dataset) { # this function is bind to a tkbutton file <- tclvalue(tkgetOpenFile()) if (!length(file)) return() tclvalue(dataset.file)<-file .dataset <- read.csv(file,header=TRUE) # read in .CSV file to R object cat(colnames(.dataset)) tclvalue(dataset.header) <- colnames(.dataset) cat(paste(&...

Dear R People: I have an interactive menu via an Rcmdr extension package which asks for lower and upper limit to evaluate. Typically, I use: assign("a",as.numeric(tclvalue(lowlim)),envir=.GlobalEnv) and that's fine. However, if I try to use pi or Inf or -Inf, I get either coerced NAs or NaN. Does anyone have any suggestions, please? Thanks, Erin PS Happy Easter if you celebrate Easter. -- Erin Hodgess Associate Professor Department of Computer and Mathemat...

Full_Name: Neil McKay Version: 1.8.0 OS: Linux (RedHat 7.1) Submission from: (NULL) (129.124.42.210) I get a core dump when executing the following code: > library("tcltk") > zzz<-tclArray() > tclvalue(zzz) Running under gdb gives this output: Program received signal SIGSEGV, Segmentation fault. makeRTclObject (tclobj=0x0) at tcltk.c:48 48 Tcl_IncrRefCount(tclobj);