Thomas Sudler <[EMAIL PROTECTED]> wrote: > And my last question: How can I change the value of a cell? (I mean not by > clicking into the cell... I mean how I can change the value with a > command).
Thomas, Currently there is no official interface between R arrays and Tcl arrays, so you have to write your own. I've sketched some ideas on : http://bioinf.wehi.edu.au/~wettenhall/RTclTkExamples/tktable.html Here's a summary. Regards, James The tclArrayVar is a modified version of Peter Dalgaard's tclVar function. require(tcltk) tclRequire("Tktable") tclArrayVar <- function() { n <- evalq(TclVarCount <- TclVarCount + 1, .TkRoot$env) name <- paste("::RTcl", n,sep = "") l <- list(env = new.env()) assign(name, NULL, envir = l$env) reg.finalizer(l$env, function(env) tkcmd("unset", ls(env))) class(l) <- "tclArrayVar" .Tcl(paste("set ",name,"(0,0) \"\"",sep="")) l } assign("[.tclArrayVar", function(object, i, j) { tclArrayName <- ls(object$env) tclvalue(paste(tclArrayName,"(",i,",",j,")",sep="")) }) assign("[<-.tclArrayVar", function(object, i,j,value) { tclArrayName <- ls(object$env) .Tcl(paste("set ",tclArrayName,"(",i,",",j,") ",value,sep="")) return(object) }) tt <- tktoplevel() tclArray <- tclArrayVar() tclArrayName <- ls(tclArray$env) table1 <- tkwidget(tt,"table",variable=tclArrayName) tkpack(table1) # Set/Modify the values of some cells. tclArray[0,0] <- "Zero" tclArray[0,1] <- "One" tclArray[1,0] <- "Two" tclArray[1,1] <- "Three" # Now get the value of a cell. tclArray[0,1] ______________________________________________ [EMAIL PROTECTED] mailing list https://www.stat.math.ethz.ch/mailman/listinfo/r-help
