Creating dropdowns in shiny with existing plotly plots

Question

I'm very new to R, so this is probably super obvious, but I'm really stuck!

I have five existing plotly charts already created. I want to be able to select them in shiny from a dropdown. I can't get the link between the existing chart names and the dropdown to work.

My latest attempt (which does not work):

ui <-shinyUI(fluidPage(selectInput("selectPlot", "Select Year:", 
choices = c("2015", "2016", "2017", "2018", "Average price across US"), 
selected = "Average price across US", plotlyOutput("plot"))))

server <- shinyServer(function(input,output){    
  output$plot <- renderPlotly({
    if(input$selectPlot == '2015') {
      p <- gg1
    }
    if(input$selectPlot == '2016') {
      p <- gg2
    }
    if(input$selectPlot == '2017') {
      p <- gg3
    }
    if(input$selectPlot == '2018') {
      p <- gg4
    }
    if(input$selectPlot == 'Average price across US') {
      p <- gg5
    }
    return(p)
  })
})

shinyApp(ui,server)

I am trying to get gg1 to show when "2015" is selected, etc.

Pork Chop · Accepted Answer · 2020-04-22 14:29:41Z

2

Try this:

library(shiny)
library(plotly)

ui <- shinyUI(
    fluidPage(
        selectInput("selectPlot", "Select Year:", c("2015", "2016", "2017", "2018", "Average price across US"), 
                    selected = "Average price across US"),
        plotlyOutput("plot")
    )
)

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

    data <- eventReactive(input$selectPlot,{
        switch(input$selectPlot,
               "2015" = gg1,
               "2016" = gg2,
               "2017" = gg3,
               "2018" = gg4,
               "Average price across US" = gg5)
    })

    output$plot <- renderPlotly({
        data()
    })
})

shinyApp(ui,server)

answered Apr 22, 2020 at 14:29

Pork Chop

29.5k5 gold badges69 silver badges82 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

user13047398 Over a year ago

Pork Chop, Could you please look at these two questions? stackoverflow.com/questions/61569169/… stackoverflow.com/questions/61559805/…

Ed_Gravy Over a year ago

So gg 1 to 5 objects will go inside renderPlotly({})?

Collectives™ on Stack Overflow

Creating dropdowns in shiny with existing plotly plots

1 Answer 1

2 Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

2 Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related