selectInput（下拉）不显示选择列表（描述）但数字

Question

我正在创建一个闪亮的应用程序，它有一个带有反应性（动态）下拉列表的 tabPanel。

所有这些下拉菜单的数据都来自一个包含所有交易数据的 csv 文件。虽然前 3 个下拉菜单将描述正确地显示为选择列表，但第四个下拉菜单显示数字但不显示描述（如 csv 文件所具有的“购买 i 箱，获得 1 箱免费”等）。

加载数据和渲染下拉菜单的代码如下。希望能帮我解决这个问题。

### Getting Reactive Data of Scheme File

SchemeData.actual <- reactiveFileReader(intervalMillis = 1000, session, 
                               filePath = "Data/Scheme Data.csv", 
                               readFunc = read.csv
)

### Creating Dropdown for the Scheme

output$SchemeUI <- renderUI({
Mydata_Scheme <- SchemeData()

# Filtering Data Corresponding to Category and SKU
Mydata_Scheme  <- Mydata_Scheme[which(as.character(Mydata_Scheme$Product.DC.C.Category)==input$Category), ]
Mydata_Scheme  <- Mydata_Scheme[which(as.character(Mydata_Scheme$Product.DC.C.Pack)==input$SKU), ]

# Getting Unique number of SKUs
Mydata_Scheme.scheme <- unique(Mydata_Scheme$Promotion.Description)

as <- HTML("")
if(input$SKU=="All") {
  as <- HTML("")
} else {
  as <- selectInput(inputId = "Scheme", label = "Select Scheme", choices = Mydata_Scheme.scheme)      
}

as

})

Answer 1

团队，

刚刚意识到在向selectInput 实体提供选择列表时，我没有尝试过非常基本的转换。以下代码更改就像一个魅力 -

as <- selectInput(inputId = "Scheme", label = "Select Scheme", choices=c("",as.character(input.variables)))