R从selectInput获取值已更新

Question

我更新了selectInpunt，使用这个最后一个值，我想从数据帧中获取信息，但是我无法获取最后一个selectInput的值，我只得到了结果“ character（0）”。数据框打开，但我无法获得与输入对应的值...第一个selectInput的值是不同data.frames的名称。我可以获得data.frame，但是我无法提取与第二个selectInput的输入相对应的信息。

library(shiny)
liste<-c("BCE","FED")

ui<-tagList(
     navbarPage(
          "Evolutions Economiques",
          tabPanel("Observation",
                   # Application title
                   titlePanel("Evolutions Economiques"),

                   # Sidebar with a slider input for number of bins
                   #sidebarLayout(
                   sidebarPanel(
                        h1("Selection des donnees"),
                        selectInput("Source","Source :",
                                    choices =liste),
                        selectInput("indic","Indicateur :",
                                    choices = NULL)
                   ),

                   # Show a plot of the generated distribution
                   mainPanel(
                        tabsetPanel(type="tabs",
                                    tabPanel("Description",verbatimTextOutput("summary"),
                                    )
                   ))
          )      
))

library(shiny)
library(dplyr)

BCE<-data.frame(Indice=c("A","B"),Description=c("Alors","Pouipoui"))
FED<-data.frame(Indice=c("C","D"),Description=c("So","Birdyy"))

  # Define server logic required to draw a histogram
shinyServer(function(input, output,session) {

     observeEvent(input$Source,{

          data<-get(input$Source)
          updateSelectInput(session,"indic",
                            choices = data$Indice)
     })



      output$summary<-renderPrint({
           data<-get(input$Source)
           data<-filter(data,Indice==input$indic)
           data<-data$Description
           data
      })

})