gWidgets возвращает несколько ответов для нескольких столбцов

Question

Я уже писал об этом и не смог прийти к решению с единственным опубликованным ответом. Я попробовал другой подход, который в основном дает мне то, что я хочу. Текущее решение будет работать лучше, если оно будет в одном диалоговом окне, но я не уверен, как это сделать. Я собираю вместе другие решения, которые я нашел на Nabble, и просто не могу получить то, что мне нужно. Я хочу, чтобы следующие предложили варианты в одном окне, вместо того, чтобы вводить пользователя в 3 отдельных поля. Пожалуйста помоги.

options(guiToolkit="RGtk2")
library(gWidgets)
#Creat selection function
select <- function(x,multiple = TRUE, Title,...){
  ans<-new.env()

  x1<-ggroup(horizontal=TRUE) # no parent container here
  x2<-gcheckboxgroup( x,multiple=multiple,con=x1,expand=TRUE)
  ret <- gbasicdialog(title = Title, widget=x1,handler=function(h,...){
    value <- svalue(x2)
    if (length(value)==0) value=""
    assign("selected",value,env=h$action$env)
    dispose(x1)
  },action=list(env=ans))
  ans
}   
#Create list to store results
Days. <- c("Day1","Day2","Day3")
Outputs_ <- list()
SelectionOptions. <- c("Bicycle Event1", "Construction Nearby","Path Closure")

#Cycle through each day 
for(day in Days.){      
    ans <- select(SelectionOptions., Title = day)
    Outputs_[[day]] <- ans$selected
}
#return results of selection
unlist(Outputs_)

Answer 1

Хорошо, вот пример, хотя я не совсем уверен, какую проблему вы пытаетесь решить, поэтому может быть отключено:

library(gWidgets2)

Days. <- c("Day1","Day2","Day3")
SelectionOptions. <- c("Bicycle Event1", "Construction Nearby","Path Closure")

w <- gwindow()
g <- gformlayout(cont=w)
days <- gradio(Days., cont=g, label="Days:")
opts <- gcombobox(SelectionOptions., cont=g, label="Options:")

btn <- gbutton("Show them", cont=g, label="")

addHandlerClicked(btn, handler=function(h,...) {
    values <- lapply(list(days, opts), svalue)
    print(values)
})

## or using a modal dialog

dlg <- gbasicdialog(handler=function(h,...) {
    values <- lapply(list(days, opts), svalue)
    print(values)
})
g <- gformlayout(cont=dlg)
days <- gradio(Days., cont=g, label="Days:")
opts <- gcombobox(SelectionOptions., cont=g, label="Options:")
visible(dlg, TRUE)

## third time is a charm? (Though you could clean this up)
library(gWidgets2)
e <- new.env()
e$Days <- ""; e$Sel <- ""

Days. <- c("Day1","Day2","Day3")
SelectionOptions. <- c("Bicycle Event1", "Construction Nearby","Path Closure")

dlg <- gbasicdialog(title="test", do.buttons=FALSE)
g <- ggroup(cont=dlg, horizontal=FALSE)

fl <- gformlayout(cont=g)
days <- gradio(Days., cont=fl, label="Days:")
cb <- gcombobox(SelectionOptions., selected=0, cont=fl, label="Options:")

handler <- function(h,...) {
    e$Days <- svalue(days)
    e$Sel <- ifelse(length(svalue(cb)) > 0, svalue(cb), "")
    if (all(sapply(e, function(x) nchar(x) > 0)))
        dlg$dispose_window()
}
sapply(list(days, cb), addHandlerChanged, handler=handler)
visible(dlg, TRUE)

Взять 4

library(gWidgets2)
days <- paste("Day", 1:3)
events <- c("none", "Bicycle Event","Construction Nearby","Path Closure")
l <- list()

handler <- function(h,...) {
    l[[h$action]] <<- svalue(h$obj)
    if(length(l) == 3)
        print(l)
}

w <- gwindow()
g <- gvbox(cont=w)
for (day in days) {
    l <- glabel(day, cont=g); font(l) <- list(weight="bold")
    gradio(events, cont=g, handler=handler, action=day)
}

Answer 2

Вы делаете это немного сложнее, чем нужно.

• вам лучше делать вещи асинхронными (в большинстве случаев), используя обработчик, который вызывается при выборе значений.

• Однако, если вы хотите сделать это таким образом, создайте контейнер для выбранных виджетов, а затем добавьте их в контейнер. Этот контейнер затем передается в gbasicdialog. Таким образом, все будет отображаться в одном окне. С помощью gWidgets2 значительно упрощает работу с основным диалогом