# NOT RUN {
size <- left_right(1, 801, value = 51, step = 50)
opacity <- up_down(0, 1, value = 0.9, step = 0.05)
mtcars %>% ggvis(~mpg, ~wt, size := size, opacity := opacity) %>%
layer_points()
# }
Run the code above in your browser using DataCamp Workspace