```r figure() %>% ly_points(1:10) ```