gWidgets: как сохранить работу пользователя в приложении?

Question

Я строю приложение в R с gWidgets. Приложение включает в себя несколько редактируемых таблиц, рабочих листов и т. Д. - в основном работает что-то вроде MS Excell, но для специального назначения.

Когда пользователь сохранит выполненную работу и выйдет из приложения, он / она сможет продолжить работу с того места, где он / она закончил - что-то вроде нажатия на значок или импорта "рабочего документа" в приложение - чтобы все листы и данные будет открыт (снова что-то вроде MS Excell и т. д.) и так же, как они были, когда приложение было закрыто.

Тем не менее, я понятия не имею, как это сделать. Кто-нибудь может помочь?

Answer 1

Такой шаблон должен работать:

library(gWidgets2)

# Global variables
widgets <- list()
values <- NULL # or a list()
state <- NULL

## Layout GUI
w <- gwindow("Test")
g <- ggroup(cont=w)
g1 <- ggroup(horizontal=FALSE, cont=g)
save_btn <- gbutton("Save state", cont=g1)
restore_btn <- gbutton("restore state", cont=g1)

widgets$w1 = gedit("some text", cont=g)
nb = gnotebook(cont=g)
widgets$w2 = gradio(c("a","b","c"), label="radio", cont=nb)
widgets$w3 = gtable(mtcars[1:3,1:3], label="table", cont=nb)

# Save and restore actions
addHandlerClicked(save_btn, handler=function(...) {
    values <<- lapply(widgets, svalue, index=TRUE)
    state <<- lapply(widgets, "[")
})

addHandlerClicked(restore_btn, handler=function(...) {
    if (!is.null(values)) {
        for (nm in names(widgets)){
            ## screen for widgets without values
            if (length(state[[nm]]))
                widgets[[nm]] <- state[[nm]]
            print(list(widgets[[nm]], values[[nm]]))
            svalue(widgets[[nm]], index=TRUE) <- values[[nm]]
        }
    }
})