R 呈现UI或仪表板问题

我的代码有问题。 我希望我的闪亮仪表板能够与用户交互，用户可以在其中选择特定的数据集。现在，由于数据集具有相同的变量集和顺序，我不知道为什么我的代码不能工作

我的服务器代码与密钥工作“bar”有问题。我已经设置了“bar”来定义用户选择的数据集，但我一直收到这样的错误：“类型为“closure”的错误对象是不可子集的”

到目前为止，我的代码工作的唯一方式是编辑修复数据集的“条”，但这会破坏我的仪表板的“交互式”功能

以下是我的UI和服务器代码：

UI:
#selecting the dataset
selectInput("dataset",label="Select the dataset of your choice", choices= c("January_2016","February_2016"),selectize = TRUE)

服务器：

shinyServer(function(input, output) ({

     bar<- reactive({
       switch(input$dataset,
              "January_2016" = names(January_2016),
              "February_2016" = names(February_2016))
     })

     output$vx <- renderUI({
       selectInput("variable","Select variable", choices=bar())
     })

#trying to calculate something where the column 2 of the selected data set should satisfy the condition 
     output$DPMO <- renderUI({
       valueBox(format(sum(bar[which(bar[,2]== "APAC - SENA"),14])/(length(which(bar[,2]== "APAC - ANZ"))*15)*1000000,digits=2,nsmall=0) , "DPMO of APAC - ANZ", width = 3)
     })

shinyServer（功能（输入、输出）({
bar
bar
保存数据帧的名称，可能将
名称（2016年1月）
替换为
2016年1月
，另一个相同。您好，感谢您的响应。仍然收到相同的错误：“closure”类型的错误对象不可再附加。您还需要使用
bar（）
获取数据帧。
bar
是一个闭包（函数），这就是为什么会出现此错误。
bar（）
将返回反应数据帧。问题在于
输出$DPMO
bar
保存数据帧的名称，可能会替换
名称（2016年1月）
by
2016年1月
，另一个也一样。您好，感谢您的响应。仍然得到相同的错误：“closure”类型的错误对象不可再附加。您还需要使用
bar（）
来获取数据帧。
bar
是一个闭包（函数），这就是为什么会出现此错误。
bar（）
将返回您的反应式数据帧。问题在于
输出$DPMO