I am trying to create a simple window that displays a dataframe. I was able
to put together a function from a couple of examples on the web. For the
most part my function works. The only problem is with resizing the window.
I found a post where someone suggested using
with(env,tkpack("configure",etc. ) but using tkpack messes around
with the
layout obtained from tkgrid(). Any tips would be appreciated.
toTclArray<-function(dsn,dig=2) {
# Converts Data Frame/Matrix to a Tcl Array for Use in Displaying Tables
# dsn is the data set name
# dig is the number of digits to round to
require(tcltk)
tclarray1<-tclArray()
for (i in 0:(dim(dsn)[1])) {
for (j in 0:(dim(dsn)[2]-1)) {
# First Row is Set to Column Names to be Used as Labels
if (i==0) {
tclarray1[[i,j]]<-colnames(dsn)[j+1]
} else {
tem<-dsn[i,j+1]
tclarray1[[i,j]]<-ifelse(is.na(tem),".",
ifelse(is.numeric(tem),round(tem,digits=dig),
as.character(tem)))
}
}
}
return (tclarray1)
}
displayInTable<-function(dsn,title="",height=-1,width=-1,dig=2,colwd=14)
{
tclarray<-toTclArray(dsn,dig=dig)
require(tcltk)
tt<-tktoplevel()
tclRequire("Tktable")
tkwm.title(tt,title)
table1<-tkwidget(tt,"table",rows=(dim(dsn)[1]+1),cols=dim(dsn)[2],
titlerows=1,titlecols=0,colwidth=colwd,
height=height+1,width=width+1,
xscrollcommand=function(...) tkset(xscr,...),
yscrollcommand=function(...) tkset(yscr,...) )
xscr<-tkscrollbar(tt,orient="horizontal",command=function(...)
tkxview(table1,...) )
yscr<-tkscrollbar(tt,command=function(...) tkxview(table1,...) )
tkgrid(table1,yscr)
tkgrid.configure(yscr,sticky="nsw")
tkgrid(xscr,sticky="new")
tkconfigure(table1,variable=tclarray,background="white",
selectmode="extended",state="disabled")
with(tt,{tkpack("configure",table1,expand=TRUE,fill="both")
tkpack("configure",yscr,expand=TRUE,fill="y")
tkpack("configure",xscr,expand=TRUE,fill="x")
})
return(table1)
}
# Example
try<-data.frame(matrix(1:100,5,20,byrow=TRUE))
colnames(try)<-1:20
displayInTable(try,title="1 to 100")
--
View this message in context:
http://n4.nabble.com/Tck-tk-help-tp1837711p1837711.html
Sent from the R help mailing list archive at Nabble.com.