在RadioInputButton上的SelectInput中的開關2列表

如何根據radioButton選擇將2個列表（fooChoices1和fooChoices2）切換到selectInput？在RadioInputButton上的SelectInput中的開關2列表

我希望用2個列表

另外一個全球性的文件，是能夠阻止在SelectInput字符輸入到只有列表中選擇（因爲我開此選擇一個SQL查詢）？

謝謝您的幫助

這裏是我的UI.R：

shinyUI(pageWithSidebar(

headerPanel("Measures"), 
sidebarPanel(
    radioButtons("base", "Select DB", 
    c("base1"="base-1","base2"="base-2")), 

    selectInput("cible", "Select le test:", 
         choices = fooChoices, selected = "ALL"), 
), 


mainPanel(

plotlyOutput("plot") 
    ))

這裏我global.R文件：

fooChoices1<-c("ALL" = "00 00%", 
         "SPEC2" = "00 00297", 
         "SPEC3" = "00 00323", 
         "SPEC4" = "00 00362", 
         "SPEC5" = "00 00366", 
         "SPEC6" = "00 00399" 
     ) 

fooChoices2<-c("ALL" = "00 00%", 
         "SPEC2" = "00 00297", 
         "SPEC3" = "00 00323", 
         "SPEC4" = "00 00362", 
         "SPEC5" = "00 00366", 
         "SPEC6" = "00 00399")

來源

2017-11-18 trayvou jba

可以實現在一個observeEvent開關您的服務器功能

observeEvent({ 
    input$base 
    }, 
    { 
    if(input$base == "base-1"){ 
     updateSelectInput(
     inputId = "cible", 
     choices = fooChoices1, 
     selected = "ALL" 
    ) 
    } else { 
     updateSelectInput(
     inputId = "cible", 
     choices = fooChoices2, 
     selected = "ALL" 
    ) 
    } 
    })

關於你的第二個問題：如果我理解你的話，實際上沒有必要阻止文本輸入 - 當你有很多選項時，這只是一個搜索工具 - 用戶仍然侷限於在參數選項中定義的選擇。

來源

2017-11-18 19:47:16

我嘗試用observeEvent，但它不工作，有光澤退出

我發現這一點：

output$cible <- renderUI({ 

if(input$base == "base-1") 
selectInput("cible", "Select test:", 
         choices = fooChoices1) 
else 
    selectInput("cible", "Select test:", 
      choices = fooChoices2) 



})

與UI.R

uiOutput("cible"),

來源

2017-11-18 20:50:33

在RadioInputButton上的SelectInput中的開關2列表

回答

相關問題