闪亮：从列表列表生成selectInput直接进入最深层

Question

我正在尝试使用重度嵌套列表（6层）作为生成一系列下拉菜单的基础。但是，当通过selectInput函数传递嵌套列表时，最深层是选择的结果。下面是一个简单的应用程序来重现我遇到的问题。

    library(shiny)

    problemList <- list(
      deeperList = list (
        element1 = 1,
        element2 = 2
      ),
      deeperList2 = list (
        element3 = 3,
        element4 = 4
      )
    )

    ui <- fluidPage(
      selectInput(inputId = "dropDownMenu", label = "Drop Down Menu", choices = problemList)
    )

    server <- function(input, output) {}

    shinyApp(ui = ui, server = server)

Image showing what is generated by the code above

我试图让用户在第一个下拉菜单中选择deepList和deepList2。如果他们选择deepList，则会生成另一个下拉菜单，允许用户在element1和element2之间进行选择，但如果他们选择deepList2，则会生成另一个下拉菜单，允许用户在element3和element4之间进行选择。

Answer 1

基本上有两种方法可以做到这一点。

1. 使用renderUI创建第二个下拉列表。通过这样做，您可以根据第一个下拉菜单的选择来选择第二个下拉菜单。请参阅＆＃34;使用renderUI＆＃34;动态创建控件。来自here的部分。
2. 每当第一个更改
时，使用updateSelectInput更新第二个下拉菜单

以下是第二个选项的示例

library(shiny)

problemList <- list(
  deeperList = list(
    element1 = 1, element2 = 2),
  deeperList2 = list(
    element3 = 3, element4 = 4)
)

ui = inputPanel(
  selectInput("category", "choose a category", names(problemList)),
  selectInput("choice", "select a choice", problemList[[1]])
)

server = function(input, output, session){
  observe({
    updateSelectInput(session, "choice", choices = problemList[[input$category]])
  })
}

shinyApp(ui, server)



在大多数情况下，选项2应该更好，因为基于输入重新呈现UI可能会导致一些奇怪的错误和糟糕的性能。