允许

Question

我已经创建了显示在同一个tabpanel，我希望用户能够使用一个选择框或类似的，但是我不能让图表之间进行选择几个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)