在gWidgets中嵌入函数

Question

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

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

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

阿波斯托洛

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)