在gWidgets中嵌入函數

Question

有沒有方法在gwindow中嵌入函數edit(dataframe)？ 例如：

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

我想在窗口嵌入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)