The hardware and bandwidth for this mirror is donated by METANET, the Webhosting and Full Service-Cloud Provider.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]metanet.ch.

slickR with Plots

library(svglite)
library(slickR)

To place plots directly into slickR we need to convert plots into svg code using svglite::xmlSVG

Here are some examples of how this can be done using different packages.


# Standard Plot
  xmlSVG({
    plot(1:10)
  }, standalone = TRUE)

#library(lattice)
  
# xyplot
  xmlSVG({
    print(xyplot(x ~ x, data.frame(x = 1:10), type = "l"))
  }, standalone = TRUE)
    
# dotplot
  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)

#library(ggplot2)

  xmlSVG({
    show(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Species)) +
      geom_point())
  }, standalone = TRUE)  
  

Example using Base Plots

Create Plots

plotsToSVG <- replicate(5,{
                       svglite::xmlSVG(
                         code = {
                           x <- sample(1:5,1)
                           plot(stats::density(stats::rnorm(10*x,sd=x)))
                           },
                         standalone = TRUE)
                       },
                      simplify = FALSE
                     )

Multiple Carousels

There are instances when you have many outputs at once and do not want to go through all, so you can combine two carousels one for viewing and one for searching.


slick_up <- slickR(plotsToSVG, height = 200, width = "95%") + 
  settings(slidesToShow = 1, slidesToScroll = 1)

slick_down <- slickR(plotsToSVG, height = 100, width = "95%") + 
  settings(slidesToScroll = 1,  slidesToShow = 3, 
     centerMode = TRUE, focusOnSelect = TRUE)

slick_up %synch% slick_down

These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.