Shiny: Dynamic Number of Output Elements/Plots

by

Inspired from this, you could do:

ui.R

shinyUI(pageWithSidebar(            
        headerPanel("Dynamic number of plots"),            
        sidebarPanel(
                selectInput(inputId = "choosevar",
                            label = "Choose Cut Variable:",
                            choices = c("Nr. of Gears"="gear", "Nr. of Carburators"="carb"))
        ),            
        mainPanel(
                # This is the dynamic UI for the plots
                uiOutput("plots")
        )
))

server.R

library(googleVis)
shinyServer(function(input, output) {
        #dynamically create the right number of htmlOutput
        output$plots <- renderUI({
                plot_output_list <- lapply(unique(mtcars[,input$choosevar]), function(i) {
                        plotname <- paste0("plot", i)
                        htmlOutput(plotname)
                })

                tagList(plot_output_list)
        }) 

        # Call renderPlot for each one. Plots are only actually generated when they
        # are visible on the web page. 


        for (i in 1:max(unique(mtcars[,"gear"]),unique(mtcars[,"carb"]))) {
                local({
                        my_i <- i
                        plotname <- paste0("plot", my_i)

                        output[[plotname]] <- renderGvis({
                                data <- mtcars[mtcars[,input$choosevar]==my_i,]
                                if(dim(data)[1]>0){
                                gvisColumnChart(    
                                        data, xvar="hp", yvar="mpg" 
                                )}
                                else NULL
                        })  
                })
        }

})

It basically creates htmlOutput plots dynamically and binds the googleVis plots when there is data in the subset.

More Related Contents:

  1. R shiny passing reactive to selectInput choices
  2. R Shiny: Handle Action Buttons in Data Table
  3. shiny 4 small textInput boxes side-by-side
  4. how to insert new line in R shiny string
  5. Rtools is not being detected from RStudio
  6. Opening Shiny App directly in the default browser
  7. Is it possible to stop executing of R code inside shiny (without stopping the shiny process)?
  8. Formatting reactive data.frames in Shiny
  9. Accept HTTP Request in R shiny application
  10. Advantages of reactive vs. observe vs. observeEvent
  11. Adding a company Logo to ShinyDashboard header
  12. What is “object of type ‘closure’ is not subsettable” error in Shiny?
  13. Deploying R shiny app as a standalone application [closed]
  14. Shiny: passing input$var to aes() in ggplot2
  15. How to embed an image in a cell a table using DT, R and Shiny
  16. Show content for menuItem when menuSubItems exist in Shiny Dashboard
  17. How to listen for more than one event expression within a Shiny observeEvent
  18. Downloading png from Shiny (R)
  19. Shiny renderUI selectInput returned NULL
  20. Scale and size of plot in RStudio shiny
  21. Are there global variables in R Shiny?
  22. Data input via shinyTable in R shiny application
  23. ToolTip when you mouseover a ggplot on shiny
  24. Add data to ggvis tooltip that’s contained in the input dataset but not directly in the vis
  25. Shiny – observe() triggered by dynamicaly generated inputs
  26. displaying TRUE when shiny files are split into different folders
  27. R shiny sliderInput with restricted range
  28. Display HTML file in Shiny App
  29. Possible to show console messages (written with `message`) in a shiny ui?
  30. date format in tooltip of ggplotly

Leave a Comment