我试图在我闪亮的应用程序中添加第二个inputpanel，其内容取决于第一个inputpanel选项的输入，我尝试使用Conditional panel，但运气不佳。
到
我的页面
#申请名称标题板（“dasboard”），
#带有滑块输入的边栏，用于输入箱子数量
侧边栏
sidebarPanel(
selectInput("country", label = h4("Pays"),
choices = levels(as.factor(TO$Pays))),
conditionalPanel(
condition = "input.country == 'Allemagne'",
selectInput("to", label = h4("Tour opérateur"),
choices = levels(as.factor(as.character(TO[as.character(TO$Pays)=="Allemagne",]$TO))))),
conditionalPanel(
condition = "input.country == 'Angleterre'",
selectInput("to", label = h4("Tour Operator"),
choices = levels(as.factor(as.character(TO[as.character(TO$Pays)=="Angleterre",]$TO)))))
...
我发现的解决方案是为第一个输入面板的每个值创建一个条件面板，但是第二个输入面板输出只对第一个值正确。
有人有解决办法吗？
我知道下面的方法不是通过条件面板来实现的，因为我认为通过下面给出的示例来实现更简单。
首先，您可以使用updateSelectInput来更新您的条目，类似于以下内容
rm(list = ls())
library(shiny)
runApp(list(
ui = bootstrapPage(
selectInput('data', 'Data', c('mtcars', 'iris')),
selectInput('Cols', 'Columns', "")
),
server = function(input, output, session){
outVar <- reactive({
mydata <- get(input$data)
names(mydata)
})
observe({
updateSelectInput(session, "Cols",choices = outVar()
)})
}
))
其他方式，您可以使用renderUI来创建selectInput并像这样填充它：
rm(list = ls())
library(shiny)
runApp(list(
ui = bootstrapPage(
selectInput('data', 'Data', c('mtcars', 'iris')),
uiOutput('columns')
),
server = function(input, output){
output$columns <- renderUI({
mydata <- get(input$data)
selectInput('columns2', 'Columns', names(mydata))
})
}
))
编辑：如何在renderUI中添加多个小部件您需要在tagList（）中包装div，如下所示：
rm(list = ls())
library(shiny)
runApp(list(
ui = bootstrapPage(
selectInput('data', 'Data', c('mtcars', 'iris')),
uiOutput('columns')
),
server = function(input, output){
output$columns <- renderUI({
mydata <- get(input$data)
tagList(
selectInput('columns2', 'Columns', names(mydata)),
selectInput('columns3', 'Columns 2', names(mydata)))
})
}
))
