gwidgets gtable 刷新

Question

我遇到以下问题：

library(gWidgets)
options(guiToolkit = "RGtk2")

aa <- c(1,2,3)
bb <- c(4,5,6)
cc <- cbind(aa,bb)
cc <-as.data.frame(cc)

t1 <- gtable(cc, container=TRUE)

我想刷新 t1 的内容：

dd <- c(7,8,9)
dd <- as.data.frame(dd)

但是当我运行时

t1[] <- dd

，我收到： Can't replacement with less columns

Apostolos

Answer 1

为了扩展约翰的答案，这里有一个例子。

#Data
cc <- data.frame(aa = 1:3, bb = 4:6)
dd <- data.frame(X = 7:9)

#Wigdets
win <- gwindow()
grp <- ggroup(container = win)
t1 <- gtable(cc, container = grp)

#Refresh widget
delete(grp, t1)
t1 <- gtable(dd, container = grp)

请注意，问题中的示例代码在 gWidgetstcltk 下工作正常；这纯粹是GTK问题。

Answer 2

gtk 小部件使您可以在构造时选择列的类型，因此 gtable 不允许您减少列或更改列类型。如果您确实想这样做，请将小部件放入 ggroup 容器中，然后删除并添加新的小部件。

Answer 3

如果只是刷新而不是完全更改其内容，我会通过以下方式获得非常好的体验：

win <- gtable(data.frame(a=rnorm(100),b=runif(100)),container=T)
win[1,1] <- 5
win[1:10,2] <- 6
win[seq(dim(win)[1]),seq(dim(win)[2])] <- win[seq(dim(win)[1]),seq(dim(win)[2])] +1 

完整的“刷新”可能如下所示：

win <- gtable(data.frame(a=rnorm(100),b=runif(100),d=FALSE),container=T)