Brilhante: número dinâmico de elementos de saída / gráficos

Eu quero fazer uma exibição reativa, queexibe um número diferente de plotagens, dependendo do valor do seletor de entrada escolhido. No caso do conjunto de dados mtcars, digamos que eu queira deixar o usuário escolher entre cortar pelo Nr. de engrenagens ou Nr. de Carburatos para as parcelas a serem produzidas.

Olhando paraunique(mtcars$gear) nós vemos que tem4 3 5 então 3 valores possíveis, enquantounique(mtcars$carb) tem4 1 2 3 6 8 então 6 valores possíveis. Quero, portanto, produzir 6 parcelas separadas quandoNr. of Carburators é selecionado e apenas 3 parcelas quandoNr. of Gears é selecionado. Eu brinquei comconditionalPanel mas invariavelmente explode depois que eu alterno entre os seletores uma ou duas vezes. Socorro?

UI brilhante:

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 Brilhante:

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' 
    )
  })  
})