Разрешить пользователю выбирать между разными графиками

Question

Я создал несколько диаграмм gvis Geo, которые отображаются на одной и той же вкладке, и я хотел бы, чтобы пользователь мог выбирать между диаграммами, используя поле выбора или подобное, однако я не могу заставить эту функцию работать.

Кто-нибудь может помочь?

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)