2016-05-05 7 views
0

Ich habe mehrere gvis Geo Charts erstellt, die in der gleichen Tableiste angezeigt werden und ich möchte, dass der Benutzer zwischen den Charts wählen kann, indem er eine Auswahlbox oder ähnliches verwendet die funktion zu arbeiten.Erlaube dem Benutzer, zwischen verschiedenen Diagrammen zu wählen

Kann jemand helfen?

ui.R

htmlOutput("schoolaid"), 
br(), 
htmlOutput("income") 

Gibt es eine einfache Möglichkeit, die Benutzer wählen zwischen dem "schoolaid" und "Einkommen" Ausgänge haben?

+0

Sie können entweder 'conditionalPanel' ein Ausgangssignal auf der Grundlage einer Bedingung anzuzeigen, oder Verwenden' renderUI' und Serverende-Logik (zum Beispiel Verwenden 'ifelse') -Ausgang zu machen, basierend auf einer Benutzerauswahl. –

+0

Danke für die Hinweise. Ich habe ein paar Optionen für bedingte Panel ausprobiert, aber ich kann nicht scheinen, dass dies funktioniert. Ich habe Code wie folgt – PvC

+0

#mainPanel ( id = 'stuff', selectInput ("Zeug", Label = h5 ("Wählen Sie Crime, Schulhilfe oder Gehalt Daten anzuzeigen"), Auswahl = Liste ("Crime", ("Schule", "Einkommen")), conditionalPanel ('input.stuff === "Verbrechen"', htmlOutput ("crimehotspots")), conditionalPanel ('input.stuff === "Schule"', htmlOutput ("schoolaid")), conditionalPanel ('input.stuff === "Income"', htmlOutput ("income"))), – PvC

Antwort

0

Hier ist ein einfaches Beispiel, das Ihnen helfen könnte.

library(shiny) 

ui <- shinyUI(fluidPage(

    titlePanel("Old Faithful Geyser Data"), 

    sidebarLayout(
     sidebarPanel(
     selectInput("select", "Select a graph", c("mtcars", "cars")) 
    ), 

     mainPanel(
     conditionalPanel("input.select=='mtcars'", 
          plotOutput('mtcars')), 
     conditionalPanel("input.select=='cars'", 
          plotOutput('cars')) 
    ) 
    ) 
)) 

server <- shinyServer(function(input, output) { 

    output$mtcars <- renderPlot({ 
     plot(mtcars$mpg, mtcars$disp) 
    }) 

    output$cars <- renderPlot({ 
     plot(cars$speed,cars$dist) 
    }) 
}) 

shinyApp(ui = ui, server = server) 
+0

Danke dafür. Ich habe es damit arbeiten lassen. Eines der Hauptprobleme, das ich hatte, war ein Mainpanel in einem TabPanel zu schichten, das alle möglichen Probleme verursachte – PvC