R получить значение из selectInput обновлено - PullRequest
Новая
       5

R получить значение из selectInput обновлено

0 голосов
/ 06 сентября 2018

У меня обновлен selectInpunt, и с этим последним значением я хочу получить информацию из фрейма данных, но не могу получить значение последнего selectInput, у меня есть только результат "символ (0)". Фрейм данных открыт, но я не могу получить значение, соответствующее input ... Значения первого 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
      })

})
...