如何在閃亮的應用程序中將 selectInput 值讀取為向量或字符？

Question

我正在開發一個閃亮的應用程序，我想知道是否有一種方法可以將用戶通過 selectinput 作為向量或字符恢復所選數據？ 事實上，我輸入了以下代碼

color<-read.xlsx("colors.xlsx",startRow = 1,sheet = 1,colNames = TRUE)
myList<-color$name
ui <- fluidPage(
  sidebarLayout(
                sidebarPanel(helpText(
                  fileInput("myData", "Upload your data ")
                  sidebarPanel(
                  ),
                ),
     mainPanel(      
 # selectInput(inputId = "couleurs",label = "Select colors:",choices = myList,selected = "Dark turquoise", multiple = TRUE))
 # colourInput("col", "Select colour", "purple")
  ))
server <- function(input, output) {}
shinyApp(ui = ui, server = server)

顏色數據庫由 2 列組成：顏色名稱如深綠松石和顏色代碼如“#00CED1”如下

Name    Code
Absolute Zero   #0048BA
Acajou  #4C2F27
Acid green  #B0BF1A
Aero    #7CB9E8
Aero blue   #C9FFE5
African violet  #B284BE
Air Force blue (RAF)    #5D8AA8
Air Force blue (USAF)   #00308F
Air superiority blue    #72A0C1
Alabama crimson #AF002A
Alabaster   #F2F0E6
Alice blue  #F0F8FF
Alizarin crimson    #E32636
Alloy orange    #C46210
Almond  #EFDECD

在這里我建議是否使用selectinput方法並獲取傳遞的值，即使用顏色選擇器方法的選定顏色來生成將選擇重新組合為：'"#5D8AA8","#72A0C1"'的字符，例如問題是我無法使用命令“過濾器”在方法 1 中進行選擇，對於第二種方法，如果我嘗試將顏色代碼保存在顏色選擇器上並將其粘貼到第一個文本更改的新顏色代碼中！

即使使用你們中的一些人建議使用顏色代碼作為顏色名稱的解決方案，我仍然會遇到錯誤

Answer 1

Shiny 文檔說，如果您命名向量的元素，元素將按名稱顯示，但會按值發送到 input$。

要從中選擇的值列表。 如果列表的元素已命名，則向用戶顯示該名稱而不是值。

因此我會嘗試類似的東西

colorList<-all_codes
names(colorList)<- all_colors
selectInput(inputId = "couleurs", label = "Select colors:",choices = colorList,selected = "Dark turquoise",multiple = TRUE)

傳遞給 input 的值應該是您需要的代碼。