如何在R中的for循环中使用gcheckboxgroup

Question

我对R GUI编程非常陌生。 我希望用户动态选择数据框中的列，然后动态选择所选列的级别。

我的目的是允许用户选择列和过滤器值，然后根据这些值过滤数据帧。为了获取列名，我得到了正确的值。但是，在获取所选列的级别时，for循环退出并且未在cba和cbv变量中捕获所选值。

items<-colnames(joined_final)
items<-levels(joined_final$State)
cbg<-gcheckboxgroup(items,cont=TRUE,use.table = TRUE, index=TRUE,container = w)
cb<-svalue(cbg,index=TRUE)
j<-length(cb)
func(joined_final,j,cb)

func<-function(joined_final,j,cb){
cbv=c()  
for (i in seq(j)){
    items_1<-levels(joined_final[,cb[i]])
    cba<-gcheckboxgroup(items_1,cont=TRUE,use.table = TRUE, container = w)
    cbv<-svalue(cba)
  }
 return(cbv)
}

请帮我解决这个问题。提前致谢