ui.R

Question

我正在尝试在我的闪亮应用程序中添加第二个输入面板，其内容取决于第一个输入面板选项的输入，我尝试使用condional面板而没有运气。

ui.R

TO＆lt; - read.csv（＆＃34;〜/ TO / TO / TO.csv＆＃34;，sep =＆＃34;;＆＃34;）库（有光泽）

shinyUI（fluidPage（

＃应用程序标题 titlePanel（＆＃34; dasboard＆＃34），

#Sidebar，带有用于箱数的滑块输入

sidebarLayout（

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)))))

...

我找到的解决方案是为第一个inputPanel的每个值创建一个conditionalPanel但是第二个inputPanel输出只对第一个值是正确的。

有没有人有解决方案？

Answer 1

我知道下面的方法不是通过条件面板，因为我认为通过下面给出的例子来做更简单。

首先，您可以使用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 中添加多个小部件您需要将divs包裹在tagList()内，如此：

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)))
    })
  }
))

如何将条件面板设置为有光泽的selectinput？

ui.R

1 个答案: