R Gwidgets单选按钮

我想用R中的Gwidgets包制作一个GUI。我有一段代码，生成一个列表，然后我想把它作为单选按钮放在GUI中，让用户选择一些选项。附件是我试图实现的一个基本示例

library(gWidgets)
library(tcltk2)
options("guiToolkit"="tcltk")
win <- gwindow("Test", visible=TRUE)
l <- gframe(container=win)
z <- ggroup(container = l)
gradio(item=c("Coffee", "Straw"), container=z)
gradio(item=c("tea", "Vanilia"), container=z)

库（gWidgets）
图书馆（tcltk2）
选项（“guiToolkit”=“tcltk”）
我有工作要做。基本上，将梯度存储为一个列表，然后使用sapply（list.name，svalue）worksYup，就是这样。如果您有简单的布局，您可以在构建期间使用lappy或类似的方法创建该列表。