if(interactive()){
slick <- slickR(obj=nba_team_logo$uri)
slick
# add dots to the first slick and autoplay at 1 second a slide
slick + settings(dots = TRUE, autoplay = TRUE, autoplaySpeed = 1000)
# working with multiple slicks
sets <- split(
sample(nba_team_logo$uri, size = 28, replace = FALSE),
rep(c(1,2,3,4),each=7)
)
slicks <- lapply(sets,FUN = function(x,...){
slickR(obj = x,...)
},height = 100)
# independent slicks
Reduce(`%stack%`,slicks)
# 1,2 synch stacked on 3,4 synch
(slicks[[1]] %synch% slicks[[2]]) %stack% (slicks[[3]]%synch%slicks[[4]])
}
Run the code above in your browser using DataLab