Question

我创建了一个闪亮的应用程序，其tabPanel带有一组被动（动态）下拉列表。

所有这些下拉列表的数据来自包含所有交易数据的csv文件。虽然前3个下拉列表正确显示了描述作为选择列表，但第四个下拉列表显示的是数字而不是描述（例如＆＃39;购买i案例，获得1个案例免费＆＃39;等等csv文件有）。

加载数据和呈现下拉列表的代码如下。希望指点帮助我解决这个问题。

### 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)))

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

1 个答案: