Search code examples
ruser-interfacegwidgets

How to wait for user to input values in combo box in gWidgets2RGtk2?

I want an user input and then source a file based on that input . The R code executes without letting user to select anything and just executes the next statement.

library(gWidgets2RGtk2)

w <- gwindow(title="Hello World",visible=TRUE)
g = ggroup(horizontal = FALSE, cont=w)
glabel("Please select your favorite subject", cont=g)
modeltype <- c("","Science","Math")
op1 <- gcombobox(modeltype, cont=g)

if (svalue(op1)=="Math"){
    source("Rscript1")
}else if (svalue(op1)=="Science"){
    source("Rscript2")
}else{
    source("Rscript3")
}

Now before I close the window or even select the option from my drop down list, it automatically takes "" as the value and goes to the else statement and runs the RScript3 . How can I pause the execution till I get the input from the user. Thanks.

Solution

  • The handler function is called when an item is selected in the combo box. It is the place to put your actions:

    addHandlerChanged(op1, handler=function(...){
    if (svalue(op1)=="Math"){
      source("Rscript1")
    }else if (svalue(op1)=="Science"){
      source("Rscript2")
    }else{
      source("Rscript3")
    }
})