我正在尝试使用重度嵌套列表(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 之间进行选择。
最佳答案
基本上有两种方法可以做到这一点。
- 使用
renderUI
创建第二个下拉列表。通过这样做,您可以根据第一个下拉菜单的选择来选择第二个下拉菜单。请参阅 here 中的“使用 renderUI 即时创建控件”部分. - 每当第一个下拉菜单发生变化时,使用
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 可能会导致一些奇怪的错误和糟糕的性能。
关于r - Shiny:从列表列表生成selectInput直接进入最深层,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/44751152/