ggvis testing function