R/r2d3.r

In hadley/r2d3: Tools for making d3 visualisations from R

#' Render a ggplot2 graphic using d3.
#'
#' @param x plot
#' @param path location to save json/html
#' @export
#' @examples
#' p <- qplot(displ, hwy, data = mpg)
#' r2d3(p, "mpg.json")
#' r2d3(p + geom_smooth(), "mpg-smooth.json")
r2d3 <- function(x, path) {
  stopifnot(is.ggplot(x))
  stopifnot(is.character(path), length(path) == 1)
  
  cat(json(x), file = path)
}