r - R: Shiny Flexdashboard: 为什么 selectInput 不显示所有选项？

Question

我在运行 Shiny 的 flexdashboard 中有一个超级简单的 selectInput 功能，如下所示：

selectInput("dropletModel", "Choose model to represent infectious passengers:",
      list(`Coughing` = list("Bronchial/laryngeal/oral","Duguid","Loundon & Roberts"),
           `Speaking` = list("Bronchial/laryngeal/oral"),
           `Breathing` = list("Bronchial/laryngeal/oral"))
    )

但它并没有显示所有三个选项，而是一起错过了支气管/喉/口和“口语”级别。有什么想法为什么？

标签： rshinyflexdashboard