working on on_click for ggvis