working shiny app with ggvis