This is a short demo of the slickCarousel package, which provides a HTML widget to create carousels.
Let us first load the required libaries.
library(htmltools)
library(htmlwidgets)
library(slickCarousel)
We can now create a simple image carousel.
images = sprintf('http://kenwheeler.github.io/slick/img/fonz%s.png', 1:3)
img_div <- lapply(images, function(src){
tags$div(class = 'image', tags$img(src = src))
})
slickCarousel(content = img_div, config = list(dots = TRUE))