This function is useful for inspecting the data in a ggvis object.
get_data(vis)
vis
A ggvis object.
p <- cocaine %>% ggvis(~price) %>% layer_bars() get_data(p)