Question

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

我的服务器代码存在问题，主要工作是＆＃34; bar＆＃34;。我已经设置了＆＃34; bar＆＃34;定义用户选择的数据集，但我不断收到此错误：＆＃34;类型＆＃39;关闭＆＃39;错误对象不是子集表格＆＃34;。

到目前为止我的代码工作的唯一方法是编辑＆＃34; bar＆＃34;到一个修复数据集，但这会破坏我的仪表板的目的是＆＃34;互动＆＃34;

以下是我的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)
     })

呈现UI R闪亮仪表板问题

0 个答案: