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

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

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

пользовательский интерфейс.Р

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

Есть ли простой способ, чтобы пользователь выбирал между результатами» schoolaid «и» income»?

1 ответ

  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)