beobachten updateSelectInput basiert auf der ersten Auswahl

Meinem server.R hat den folgenden code möchte ich auf mein Shiny-app, wählte Staaten auf der Grundlage der Auswahl des Landes, aber es zeigt alle Staaten in der zweiten Zeile. Ich denke, hier observe ist nur die Beobachtung, die nicht durchführen jegliche Aktion.

  shinyServer(function(input, output, session) {

      observe({
          ddf = df[df$Date>=input$daterange[1] & df$Date<=input$daterange[2],]
          updateSelectInput(session, "Country", choices = ddf$Country)
          ddf1 = subset(ddf, grepl(input$Country, ddf$State))
          updateSelectInput(session, "State", choices =  ddf1$State)  
            })

    }

Anhand der oben genannten Auswahl, ich möchte einige Daten Rahmen zum zeichnen. Wenn ich wählen Sie anderes Land, es ist sich verändernden Staaten-Liste für eine Sekunde und gehen Sie zurück zu alle Erste Land, in dem die Status-Liste. Ich wirklich zu schätzen, wenn jemand zeigen kann, hier ein Beispiel.
Mein ui.R-code ist unten

 sidebarPanel(
    wellPanel(dateRangeInput("daterange", "Date range:",
                      Sys.Date()-10,
                      Sys.Date()+10)),
    wellPanel(selectInput("Country", "Select a Country:",
                          '')),
    wellPanel(selectInput("State", "Select a State:",
                          '')))
  • Versuchen Sie, die Dinge zu trennen, die mit zwei Beobachtern statt einer (und Sie sollten reactive({}) zu bekommen ddf)
  • Ich habe versucht, mit zwei Beobachter und reactive({}) zu bekommen ddf1, aber kein Glück.
InformationsquelleAutor BigDataScientist | 2013-11-19
  1. 5

    Ich denke, es gibt einen Konflikt in Ihrem Beobachter verursachen es enthält input$Country sowie ein updater für die Country Eingang. Dann würde ich versuchen, es zu Spalten in zwei Beobachtern, und ich würde die Verwendung eines reaktiven Leiter zu machen ddf nur einmal. 

    get_ddf <- reactive({
  df[df$Date>=input$daterange[1] & df$Date<=input$daterange[2],]
})
observe({
  updateSelectInput(session, "Country", choices = get_ddf()$Country)
})
observe({
  ddf1 = subset(get_ddf(), grepl(input$Country, get_ddf()$State))
  updateSelectInput(session, "State", choices =  ddf1$State)  
})

    Darüber hinaus sollten Sie nicht verwenden die Ebenen der Kolonne eher als die Spalte selbst in der choices argument ?

    observe({
  updateSelectInput(session, "Country", choices = levels(droplevels(get_ddf()$Country)))
})
observe({
  ddf1 = droplevels(subset(get_ddf(), grepl(input$Country, get_ddf()$State)))
  updateSelectInput(session, "State", choices =  levels(ddf1$State))  
})

    Wenn die Country und State Spalten sind nicht Faktoren, sondern Zeichen, verwenden Sie unique() statt levels(droplevels()).

    • Vielen Dank, über die beiden Lösungen gearbeitet. Ich entschied mich für die zweite though.
    • Basierend auf den oben würde ich wie übergeben Sie die Daten an ein anderes Daten-frame als Ausgabe. Wenn es in dem Betrachter, Wie kann ich die Daten senden-frame außerhalb?
    • Ich habe versucht, zu assign eine .GlobalEnv variable innerhalb observe. observe({ ddf1 = droplevels(subset(get_ddf(), grepl(input$Country, get_ddf()$State))) updateSelectInput(session, "State", choices = levels(ddf1$State)) assign("ddf1",ddf1, envir = .GlobalEnv) }) dataset = reactive({ ddf1 }) aber das ist der Druck aller Staaten
    • Versuchen reactiveValues() statt assign. Oder machen Sie eine reaktive Dirigent get_ddf1 ähnlich get_ddf dies vielleicht sauberer. Beachten Sie auch, dass Sie nur eine reaktive Dirigent Rückkehr sowohl ddf und ddf1 in einer Liste.
    InformationsquelleAutor Stéphane Laurent
Schreibe einen Kommentar