gWidgetsに埋め込み関数

Question

edit(dataframe)を埋め込む方法はgwindowにありますか？ 例：

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

私はウィンドウで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)