r - 在 gWidgets 中嵌入函数

Question

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

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

我想嵌入edit(DataFrame)Window。

阿波斯托洛斯

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)