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)