R update updateInput具有反应性

Question

我在发亮时进行了updateSelectInput的运行。 但是在我不能将新输入用作输出的变量之后……输入始终为空。 我给您Ui.R中的SelectInput和server.R中的更新的代码。 我无法提供更多信息，因为更新是通过访问数据库进行的。 如果我仅为示例创建data.frame，它将正常工作...

selectInput("indic","Indicateur :",
                                    choices = NULL,selected = NULL),

observeEvent(input$Source,{
          indicateurs<-as.character(voila_source(input$Source)$Indice)


          updateSelectInput(session,"indic",
                            choices = indicateurs)
     })

output$summary<-renderTable({     
          information<-voila_source(input$Source)
          information<-information[,-1]
          indica<-input$indic   ##here is empty...
          print(indica)
          description<-filter(information,Indice==indica)
          description
     })

也许我忘记了一些，我不知道。 我想选择一个输入并在所选输入处打印一个data.frame。

编辑：找到答案

好的，我的代码和您的代码可以正常工作...它必须按一下commitbutton ...但是我不想为此按一下commitbutton，我只想单击selectInput打印我的输出，这是对selectInput，如果需要，请按一下按钮以显示图形。

我发现了错误，submitbutton，我用actionbutton代替了，它正在工作...我不知道Submitbutton和actionbutton。

如果可以帮助您，这是我的代码，用于调用访问数据库以及所有server.R代码和ui.R代码：

    library(shiny)
    library(anytime)
    library(plotly)
    library(ggplot2)
    library(dplyr)
    library(RODBC)
    library(ecb)


    channel<-odbcConnectAccess("H:\\Analyse Macro\\Base Macro live.mdb")
    listee<-sqlQuery(channel,paste("Select * from Liste_source"))
    liste_server<-list()
    for (i in 1:length(listee$Table)){
         liste_server[i]<-as.character(listee$Table[i])
    }
    names(liste_server)<-as.character(listee$Table)

    for (i in 1:length(listee$Table)){
         liste_server[[i]]<-sqlQuery(channel,paste("Select * from ",liste_server[i]))
    }

    voila_source<-function(selection){
         x<-as.character(selection)
         liste_donnee<-liste_server[[x]]
         #liste_donnee<-as.character(liste_donnee$Indice)
         liste_donnee$Indice<-as.character(liste_donnee$Indice)
         liste_donnee$Description<-as.character(liste_donnee$Description)
         liste_donnee$Unite<-as.character(liste_donnee$Unite)
         liste_donnee$Frequence<-as.character(liste_donnee$Frequence)
         liste_donnee$Code<-as.character(liste_donnee$Code)
         liste_donnee$Pays<-as.character(liste_donnee$Pays)

         liste_donnee
    }



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




         observeEvent(input$Source,{
              indicateurs<-as.character(voila_source(input$Source)$Indice)


              updateSelectInput(session,"indic",
                                choices = indicateurs)
         })


         output$summary<-renderTable({     
              information<-voila_source(input$Source)
              information<-information[,-1]
              reactives$indica<-input$indic
              print(reactives$indica)

              description<-filter(information,Indice==reactives$indica)
              description<-data.frame(test=indica)
              description
         })

    })


ui.R

    library(shiny)
    #library(quantmod)
    library(lubridate)
    library(plotly)
    library(ggplot2)
    library(RODBC)

    channel<-odbcConnectAccess("H:\\Analyse Macro\\Base Macro live.mdb")
    liste<-sqlQuery(channel,paste("Select * from Liste_source"))
    liste<-as.character(liste$Table)

    # Define UI for application that draws a histogram
    #shinyUI(fluidPage(
    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,selected = NULL),
                            selectInput("pays","Pays :",
                                        choices = NULL),
                            selectInput("partenaire","Partenaire :",
                                        choices = NULL),
    #### replace by actionbutton submitButton("Ajouter"),
    actionButton("add","Ajouter"),
                            hr(),
                            img(src="logo.png",height=80,width=200),
                            br(),
                            br(),
                            helpText("Application realisee pour l'exploration des donnees macroeconomiques")
                       ),

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

              tabPanel("Extraction",
                       sidebarPanel(

                            selectizeInput("Index","Indice",c("ok")),
                            textInput("Nom","Nom fichier"),
                            actionButton("save","Sauver"),
                            hr(),
                            img(src="logo.png",height=80,width=200),
                            br(),
                            br(),
                            helpText("Application realisee pour l'exploration des donnees macroeconomiques")
                       ),

                       mainPanel(
                            tabsetPanel(type="tabs",
                                        tabPanel("liste",tableOutput("source")))
                       )


              ))
    )

Answer 1

从你的例子来看，似乎你还没有初始化您indicateurs或indica变量是正确的？

如果是这样，您将需要几个额外的行。 解决方案（创建data.frame）起作用的原因是，当您测试应用程序时，该变量已经存在，供observeEvent或renderTable函数使用。 因此，只需在脚本中添加一些行即可，然后再调用它们。

这是一个使用reactValues的示例（在使用闪亮的应用程序时会更好）：

selectInput("indic","Indicateur :",
                                    choices = NULL,selected = NULL),

# goes in your server.R
reactives <- reactiveValues(indicateurs = NULL, indica = NULL)
observeEvent(input$Source,{
          reactives$indicateurs <-as.character(voila_source(input$Source)$Indice)


          updateSelectInput(session,"indic",
                            choices = reactives$indicateurs)
     })

output$summary<-renderTable({     
          information<-voila_source(input$Source)
          information<-information[,-1]
          reactives$indica<-input$indic   ##here is empty...
          print(reactives$indica)
          description<-filter(information,Indice==reactives$indica)
          description
     })