r - Shiny - "choices"中的所有子列表都必须命名吗？

Question

我想创建一个如下所示的选择选项，

<select id="species">
  <option value="1">A</option>
  <option value="2">B</option>
  <option value="3">C</option>
</select>

所以我使用数据框创建一个存储数据的表，

# Create the species table for select input.
title <- c('A', 'B', 'C')
code <- c('1', '2', '3')
species <- data.frame(title, code)

# Set choices of title and code for select input.
choicesSpecies <- setNames(species$code, species$title)

Shiny 的 ui.R，

selectInput(inputId = "species",
                  label = "Species:",
                  choices = choicesSpecies),

我收到此错误，

Error in (function (choice, name)  : 
  All sub-lists in "choices" must be named.

这是什么意思？我该如何修复它以获得我需要的结果？

Answer 1

将 code 列作为数据框中的一个因素似乎是问题所在，也许可以尝试:

choicesSpecies <- setNames(as.numeric(species$code), species$title)

或者:

#create the named list
title <- c('A', 'B', 'C')
code <- c('1', '2', '3')
names(code) <- title

在你的ui.R中:

selectInput(inputId = "species",
                label = "Species:",
                choices = code)