lory.js is a very nice dependency-free JavaScript slider library, so of course it needs to be wrapped in a htmlwidget for use in R.
Install
devtools::install_github("timelyportfolio/loryR")Example | RStudio Gallery
library(loryR)
# make some sample plots
plot(1:10,col="red")
contour(volcano)
lattice::xyplot(x~0:90, data.frame(x=cos(0:90/90)))
images <- rstudio_gallery()
loryR(images, width = "90%", options = list(rewind=T))Example | Using SVG
With SVG, we can supply UTF+8 instead of base64. See this great css-tricks article for more information on why we would want to do this. Please note, this trick does not work for me in Firefox but does work in RStudio Viewer and Chrome.
library(svglite)
library(xml2)
library(loryR)
library(pipeR)
#let's use lattice and tmap
library(lattice)
library(tmap)
lapply(
list(
xmlSVG({plot(1:10)},standalone=TRUE)
,xmlSVG({print(xyplot(x~x,data.frame(x=1:10),type="l"))},standalone=TRUE)
,xmlSVG({
print(
dotplot(variety ~ yield | site , data = barley, groups = year,
key = simpleKey(levels(barley$year), space = "right"),
xlab = "Barley Yield (bushels/acre) ",
aspect=0.5, layout = c(1,6), ylab=NULL)
)
},standalone=TRUE
)
,xmlSVG({
data(World)
print(
tm_shape(World) + tm_fill("pop_est_dens", style="kmeans", title="Population density") +
tm_format_World("World Population", bg.color="lightblue")
)
},standalone=TRUE)
)
,function(sv){
paste0(
"data:image/svg+xml;utf8,"
,as.character(sv)
)
}
) %>>%
loryR( images_per_page = 1, height = 300 )
Example | Flickr
We can also provide a url as our image source, so using Flickr images could work like this.
# examples with flickr images
# don't expect this to be the primary use case
library(loryR)
flickr_images <- list(
"https://farm4.staticflickr.com/3133/2288766662_c40c168b76_o.jpg"
,"https://farm6.staticflickr.com/5309/5607717791_b030229247_o.jpg"
)
loryR( flickr_images, width = "50%", images_per_page = 1, options = list(rewind=T) )Just in case you are interested, here is how we would do it in base64.
# examples with flickr images
# don't expect this to be the primary use case
library(loryR)
library(curl)
flickr_images <- list(
paste0(
"data:image/jpg;base64,"
,base64enc::base64encode(
curl("https://farm4.staticflickr.com/3133/2288766662_c40c168b76_o.jpg","rb")
)
)
,paste0(
"data:image/jpg;base64,"
,base64enc::base64encode(
curl("https://farm6.staticflickr.com/5309/5607717791_b030229247_o.jpg","rb")
)
)
)
loryR( flickr_images, width = "50%", images_per_page = 1, options = list(rewind=T) )