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

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

0 голосов
/ 02 июля 2018

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

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

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

1 Ответ

0 голосов
/ 06 июля 2018

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

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]]
        }
    }
})
...