r - Shiny:从列表列表生成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 创建第二个下拉列表。通过这样做，您可以根据第一个下拉菜单的选择来选择第二个下拉菜单。请参阅 here 中的“使用 renderUI 即时创建控件”部分.
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 可能会导致一些奇怪的错误和糟糕的性能。