Блестящая реактивность ggvis

Я пытаюсь создать график ggvis, который реагирует на выбор кнопки. Когда я запускаю его, первая выбранная кнопка покажет отличный график ggvis, но как только я изменю выделение, я увижу ОЧЕНЬ краткий проблеск нового графика, а затем он исчезнет. После этого я не вижу никаких сюжетов.

Мой код выглядит следующим образом:

UI:

shinyUI(navbarPage("Perspective:",
                   tabPanel("Overview",

                            # Layout
                            sidebarLayout(

                              sidebarPanel(
                                radioButtons("marker", "Phenotypic Marker:", phenotypic_marker_names)),

                              mainPanel(htmlOutput("myplot"))
                            )
                   )
))

СЕРВЕР:

shinyServer(function(input, output) {  

  dataInput <- reactive({
    data[[input$marker]]
  })

  observe({
    if (!is.null(input$marker)) {
      dl <- dataInput()
      dl %>%
        ggvis(x = ~as.numeric(time_elapsed), y = ~as.numeric(phenotype_value)) %>%
        bind_shiny("allsparklines")
    }
  })

  output$myplot <- renderUI({
    if(is.null(input$marker)) {
      return(NULL)
    }
    ggvisOutput("allsparklines")
  })

}