使用gWidgets在处理程序函数中定义变量？

Question

我需要根据来自gWidgets的单选按钮的输入来定义变量。我想要做的简单概念版本如下所示，其中变量“gas”根据“Save Choice”时单击输入的单选按钮输入“CO”或“CO2”：

gasw <- gwindow("Gas")
gasg <- ggroup(container= gasw)
gasr <- gradio(c("CO2","CO"),container=gasw)
gasbu <- gbutton("Save Choice",border = T,container = gasw,handler = function(h,...){
  dispose(gasw)
})
addHandlerClicked(gasr, handler=function(h,..) {
gas <- svalue(h$obj)
})

更具体地说，我需要将“气体”定义为字符矢量而不仅仅是“CO”或“CO2”：

gas <- c("CO2", "CO2_response", "CO2_ppm", "CO2_calibrated")

或

gas <- c("CO", "CO_response", "CO_ppm", "CO_calibrated")

但我无法在处理函数中定义一个简单的变量。有没有办法做到这一点，我错过了？