bs_carousel(id = "with_the_beatles") %>%
bs_append(content = bs_carousel_image(src = "img/john.jpg")) %>%
bs_append(content = bs_carousel_image(src = "img/paul.jpg")) %>%
bs_append(content = bs_carousel_image(src = "img/george.jpg")) %>%
bs_append(content = bs_carousel_image(src = "img/ringo.jpg"))
Run the code above in your browser using DataLab