R JavaScript CSS
Switch branches/tags
Nothing to show
Clone or download
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Failed to load latest commit information.
R
inst/htmlwidgets
man
vignettes
.Rbuildignore
.gitignore
DESCRIPTION
LICENSE
NAMESPACE
README.md
loryR.Rproj

README.md

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) )