inst/doc/embedding.R

In AnalysisPageServer: A framework for sharing interactive data and plots from R through the web

## ----message=FALSE, echo = FALSE-----------------------------------------
library(AnalysisPageServer)
setup.APS.knitr()

## ----results = "hide", echo = FALSE--------------------------------------
## Since the filenames have some randomness, this is just
## a trick to keep the output directory clean if the file
## is knitted more than once.
plotdir <- "embed-example"
if(file.exists(plotdir))
  unlink(dir(plotdir, full = TRUE))

## ----eval = FALSE--------------------------------------------------------
#  library(AnalysisPageServer)
#  setup.APS.knitr()

## ----eval = FALSE--------------------------------------------------------
#  x <- seq(0, 2*pi, length = 100)
#  y <- sin(x) + rnorm(100)/10
#  col <- adjustcolor(heat.colors(100), alpha.f = 0.6)
#  embed.APS.dataset({
#                      plot(x, y, col = col, pch = 19)
#                    },
#                    df = data.frame(x=x, y=y, X=x, Y=y),
#                    title = "A shaky sine curve",
#                    data.subdir = "embed-example")

## ----echo = FALSE--------------------------------------------------------
## Remember this to show later
x <- seq(0, 2*pi, length = 100)
y <- sin(x) + rnorm(100)/10
col <- adjustcolor(heat.colors(100), alpha.f = 0.6)
div.html <- embed.APS.dataset({
                                plot(x, y,
                                     col = col,
                                     pch = 19)
                              },		     
                              df = data.frame(x=x, y=y, X=x, Y=y),
                              title = "A shaky sine curve",
                              data.subdir = "embed-example")
div.html

## ------------------------------------------------------------------------
x <- rep(1:nrow(volcano), each = ncol(volcano))
y <- rep(1:ncol(volcano), nrow(volcano))
volcano.cells <- data.frame(x = x, y = y, Height = as.vector(t(volcano)))
embed.APS.dataset({
                    image(volcano, xaxt = "n", yaxt = "n", main = "Maunga Whau Volcano")
                  },                
                  df = volcano.cells,
                  title = "", data.subdir = "embed-example",
                  show.table = FALSE, show.sidebar = FALSE,
                  show.xy = TRUE,     
                  extra.div.attr = c(style = "width:60%; margin:0 auto"))

## ------------------------------------------------------------------------
embed.APS.dataset(df = iris,
                  title = "Iris data with no plot", data.subdir = "embed-example")

## ----eval = FALSE--------------------------------------------------------
#  basedir <- dirname(html.file)
#  copy.front.end(basedir)

## ------------------------------------------------------------------------
cat(custom.html.headers())

## ----echo = FALSE--------------------------------------------------------
cat(div.html)