gWidgets中嵌入函数

Question

有没有办法在gwindow中嵌入函数edit(dataframe)？示例：

DataFrame <- data.frame(cbind(1,1:10)
edit(DataFrame)
Window <- gwindow()

我想在Window中嵌入edit(DataFrame)。

Apostolos

Answer 1

执行此操作的标准方法是单击按钮。

dfr <- data.frame(x = 1:10, y = runif(10))
win <- gwindow()
btnEdit <- gbutton(
  "Edit", 
  container = win,
  handler = function(h, ...) dfr <<- edit(dfr)
)

您甚至可以更有想象力，并决定数据框应该是可编辑的还是仅可查看的。

win <- gwindow()
btnEdit <- gbutton(
  "Edit", 
  container = win,
  handler = function(h, ...) 
  {
    if(svalue(chkReadonly)) View(dfr) else dfr <<- edit(dfr)
  }
)
chkReadonly <- gcheckbox(
  "Read-only", 
  FALSE,
  container = win,
  handler = function(h, ...) 
  {
    svalue(btnEdit) <- if(svalue(h$obj)) "View" else "Edit"
  }
)

根据你的评论，你想要的甚至更容易。将数据帧存储在gdf中。

tbl <- gdf(dfr, container = win)