search for: tktitl

...at functionality in R.....what am I doing wrong? > I enclose below the sample function...Any help will be greatly > appreciated.... > > "tcltktst" <- + function(x="") { + xd <- read.table(x, header=T) + library("tcltk") + + tt <- tktoplevel() + tktitle(tt) <- "Diagnostics" + label.widget <- tklabel(tt, text="Choose!") + + pptlabs <- function() { + plot(xd$iv802, xd$PPT) + abline(0,1) + tt2 <- tktoplevel() + tktitle(tt2) <- "Identify Outliers" + lab.wid2 <- tklabel(tt2, text="I...

Dear R-users, I would like to build N "tkentry" compounds in the same window, with default text for each. As N is variable I need to construct them in an iterative way : library(tcltk) main<-tktoplevel() tktitle(main)<-"My Tool" filenames<-c("toto","tata","titi") N<-length(filenames) for (i in 1: N) { text<-tclVar(filenames[i]) # get a filename (string value) textField<-tkentry(main,textvariable=text) # build a text field tkgrid...

...t seem to implement that functionality in R.....what am I doing wrong? I enclose below the sample function...Any help will be greatly appreciated.... Prasad "tcltktst" <- function(x="") { xd <- read.table(x, header=T) library("tcltk") tt <- tktoplevel() tktitle(tt) <- "Diagnostics" label.widget <- tklabel(tt, text="Choose!") pptlabs <- function() { plot(xd$iv802, xd$PPT) abline(0,1) tt2 <- tktoplevel() tktitle(tt2) <- "Identify Outliers" lab.wid2 <- tklabel(tt2, text="Identify Outlier...

Thanks everybody for looking at this. I am trying to assign a script to a button please help: ############ library(tcltk) tt<- tktoplevel() tktitle(tt)<-"the title" heading<-tklabel(tt,text="Enter date as YYYY-MM-DD") l1<-tklabel(tt,text="Reporting date") b1=tkbutton(tt,text="Run") d.val<-tkentry(tt,width=12) tkgrid(heading,columnspan=2) tkgrid(l1,d.val) tkgrid(b1,columnspan=2) tkconfigure(b...

...pnd.max > xdnc.max) max.lim <- xpnd.max else max.lim <- xdnc.max if(xpnd.min < xdnc.min) min.lim <- xpnd.min else min.lim <- xdnc.min outidap <- as.null() outidrs <- as.null() cat("Before tcltk","\n") tt <- tktoplevel() tktitle(tt) <- "Diagnostics" label.widget <- tklabel(tt, text="Choose type of plot!") idnfyplot <- function() { outi <- identify(idf.x, idf.y, label=get(idvar)) if(flag == 1) { outidap <- outi assign("outidap", outidap, en...

...done you have to use the tk-function tkwait.variable(). The following function -- a simple modification of Prasad's tcltktst function -- shows an example: tcltk.test <- function(x1=1:10, x2=10:1) { library("tcltk") # define first toplevel-widget tt <- tktoplevel() tktitle(tt) <- "Diagnostics" label.widget <- tklabel(tt, text="Choose data for plot!") rbut.wid1 <- tkradiobutton(tt, text="x1", value="0", variable="choice") rbut.wid2 <- tkradiobutton(tt, text="x2", value="1", va...

...t;,.x=100,.y=100,.a=0,.turtle=NA) ## Create a new Turtle World if necessary require(tcltk) || stop("tcl/ library not available") if(!is.tkwin(new$.canvas)) { # check to see if it is first instance or not cat("Create Turtle World\n") top <- tktoplevel() tktitle(top) <- "Turtle World" canvas <- tkcanvas(top, relief="raised", width=200, height=200) tkpack(canvas, side="top", fill="both",expand="1") new$.canvas<-canvas # store canvas widget in static field new$.top<-top...

...t;Destroy>", function() {tkgrab.release(dlg); tkfocus(ttMain)}) tkbind(textEntryWidget, "<Return>", onOK) tkwait.window(dlg) return(ReturnVal) } # Create a "main" window with a button which activates our dialog require(tcltk) ttMain <- tktoplevel() tktitle(ttMain) <- "ttMain" launchDialog <- function() { ReturnVal <- modalDialog("First Name Entry", "Enter Your First Name", "") if (ReturnVal == "ID_CANCEL") return() tkmessageBox(title = "Greeting", message = past...

...wards. I tested almost every binary in "...\R\R-2.9.1\bin\..." (Rcmd.exe, R.exe, Rterm.exe, Rscript.exe, etc). In case I made myself clear, could someone give me a hint of how accomplish this task. Cheers, AS ############ BEGIN R Scipt ############ require(tcltk) tt <- tktoplevel() tktitle(tt) <- "My Schedular" Name <- tclVar("") entry.Name <-tkentry(tt,width="18",textvariable=Name) tkgrid(tklabel(tt,text="Please enter your name")) tkgrid(entry.Name) OnOK <- function() { NameVal <- tclvalue(Name) tkdestroy(tt) msg <- p...

...and executed via Tk ### t.test(Ozone[Month == 5], Ozone[Month == 8], alternative = "two.sided", var.equal = FALSE) ### ----- ...what is happen here ? Thanks for advance and suggestions regards Christian Schulz tktree <- function() { wfile <- "" tt <- tktoplevel() tktitle(tt) <- "Tcl/TK Decision Tree Window " yvar <- "EKV" y.entry <- tkentry(tt,textvariable=yvar) submit.but <- tkbutton(tt, text="submit",command=function()tclvalue(done)<-1) done <- tclVar(0) tkpack(y.entry) topMenu <- tkmenu(tt) tkconfigure(tt,menu...

At 19:48 07/06/00 +0200, Friedrich Leisch wrote: >>>>>> On Wed, 7 Jun 2000 09:41:23 -0700 (PDT), >>>>>> Thomas Lumley (TL) wrote: > > >TL> Some of this can be done with apropos(), but I don't think you can keyword >TL> search from inside R. It would be nice. > > >help.search() might do what you want ... > >.f Yes, but

Dear all; I would like to draw a graph with vertices and edges, and I guess tcl/tk would be appropriate. I don't know tcl/tk but have googled for a 10-page (or so) introduction to 'getting started with tcl/tk in R' but without any luck. - Does anyone know of the existence of such a document or any other web-based material on the subject? - Does anyone have an (informative) piece of

Hello, Does anyone know a way of interrupting a loop by pressing a key (besides ctrl-c)? My problem is the following: I have a machine acquiring data and saving text files into a directory. I have an R script that read those files, process them and plots the results. What I would like to do is: process the data as the files appear in the folder (I've done that do with a loop that checks

...arma.com> Content-Type: text/plain; charset="iso-8859-1" Dear R-users, I would like to build N "tkentry" compounds in the same window, with default text for each. As N is variable I need to construct them in an iterative way : library(tcltk) main<-tktoplevel() tktitle(main)<-"My Tool" filenames<-c("toto","tata","titi") N<-length(filenames) for (i in 1: N) { text<-tclVar(filenames[i]) # get a filename (string value) textField<-tkentry(main,textvariable=text) # build a text field tkgrid...