gWidgets2RGtk2のコンボボックスにユーザーが値を入力するのを待つ方法はありますか？

Question

私はユーザーの入力をしたいし、その入力に基づいてファイルをソースします。 Rコードは、ユーザーに何も選択せずに次のステートメントを実行するだけで実行されます。

今

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") 
} 

私は、ウィンドウを閉じたりしてもダウンリスト私のドロップからオプションを選択する前に、それは自動的に値として「」をを取り、ELSE文に行くとRScript3を実行します。ユーザーからの入力があるまで実行を一時停止するにはどうすればいいですか？おかげさまで

Answer 1

ハンドラ関数は、コンボボックスで項目が選択されたときに呼び出されます。

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