R Shiny中的动态选择输入

Question

I'm trying to use unique function to create the selectInput choices. However, my data looks like this below, which would require multiple mappings. For example,something like:

choices = c(`Pro Forma` = c('Pro-forma', 'ProForma', 'Proforma', 'Pro-Forma')`)

but not sure what's the correct syntax.

> unique(heatmap_raw$Status)
# [1] "Active"     "Redeeming"  "Proforma"   NA           "Pro-forma"  "ProForma" 
# [7] "na"         "40act"      "40 Act"     "Pro-Forma"  "40ACT"      "UCITS"   

selectInput("select month", label = ("Select Month"),
choices = c(unique(month(heatmap_raw$period))))

Answer 1

I think your problem is that your dataset is not normalized. If you have a bunch of non-standard status codes like:

status <- c( "Active","Redeeming","Proforma",NA,"Pro-forma","ProForma","na",
             "40act","40 Act","Pro-Forma","40ACT","UCITS")  

I would standardize them for case and punctuation:

status <- tolower(gsub("\\W","",status))
# plus, do something for the NA vs. "na" status
status[is.na(status)] <- "na" # or something else, just to achieve consistency 

Starting with clean data will avoid the need for workarounds later.