異なるチャート間でユーザが選択できるようにする

Question

同じタブパネルに表示される複数のgvisジオチャートを作成しましたが、選択ボックスなどを使用してグラフを選択できるようにしたい機能する関数。

誰でも手助けできますか？

ui.R

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

"schoolaid" と "収入" の出力間の選択のユーザーを持っている簡単な方法はありますか？

Answer 1

ここは簡単な例です。

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)