встроенная функция в gWidgets

Question

Есть ли способ вставить функцию edit(dataframe) в gwindow? пример:

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)