Quiero hacer una exhibición reactiva, quemuestra un número diferente de gráficos dependiendo del valor del selector de entrada elegido. En el caso del conjunto de datos mtcars, digamos que quiero permitir que el usuario elija entre cortar por Nr. de engranajes o nr. de Carburatos para las parcelas a producir.

Mirando aunique(mtcars$gear) vemos que tiene4 3 5 entonces 3 valores posibles, mientrasunique(mtcars$carb) tiene4 1 2 3 6 8 entonces 6 valores posibles. Por lo tanto, quiero producir 6 parcelas separadas cuandoNr. of Carburators está seleccionado y solo 3 parcelas cuandoNr. of Gears está seleccionado He jugado conconditionalPanel pero invariablemente explota después de cambiar entre selectores una o dos veces. ¿Ayuda?

IU brillante:

library(shiny)
library(googleVis)

shinyUI(bootstrapPage(
    selectInput(inputId = "choosevar",
              label = "Choose Cut Variable:",
              choices = c("Nr. of Gears"="gear",
                          "Nr. of Carburators"="carb")),
    htmlOutput('mydisplay')  ##Obviously I'll want more than one of these... 
#   conditionalPanel(...)
  ))

Servidor brillante:

shinyServer(function(input, output) {
   #Toy output example for one out of 3 unique gear values:
    output$mydisplay <- renderGvis({
    gvisColumnChart(    
    mtcars[mtcars$gear==4,], xvar='hp', yvar='mpg' 
    )
  })  
})