have to define knit_print

cpsievert · cpsievert · commit ecdd0efea8df · 2015-10-12T13:54:09.000+11:00
diff --git a/NAMESPACE b/NAMESPACE
@@ -9,6 +9,7 @@ export(gg2list)
 export(ggplot_build2)
 export(ggplotly)
 export(group2NA)
+export(knit_print.plotly)
 export(last_plot)
 export(layer2traces)
 export(layout)
diff --git a/R/print.R b/R/print.R
@@ -17,6 +17,22 @@ print.plotly <- function(x, ...) {
   get("print.htmlwidget", envir = asNamespace("htmlwidgets"))(w)
 }
 
+#' Print a plotly object in a knitr doc
+#' 
+#' @param x a plotly object
+#' @param ... additional arguments (currently ignored)
+#' @export
+knit_print.plotly <- function(x, ...) {
+  w <- htmlwidgets::createWidget(
+    name = "plotly",
+    x = plotly_build(x),
+    width = x$width,
+    height = x$height,
+    htmlwidgets::sizingPolicy(viewer.padding = 10, browser.fill = TRUE)
+  )
+  get("knit_print.htmlwidget", envir = asNamespace("htmlwidgets"))(w)
+}
+
 
 #' Embed a plotly iframe into a IPython Notebook
 #' @param x a plotly object
diff --git a/man/knit_print.plotly.Rd b/man/knit_print.plotly.Rd
@@ -0,0 +1,17 @@
+% Generated by roxygen2 (4.1.1): do not edit by hand
+% Please edit documentation in R/print.R
+\name{knit_print.plotly}
+\alias{knit_print.plotly}
+\title{Print a plotly object in a knitr doc}
+\usage{
+knit_print.plotly(x, ...)
+}
+\arguments{
+\item{x}{a plotly object}
+
+\item{...}{additional arguments (currently ignored)}
+}
+\description{
+Print a plotly object in a knitr doc
+}
+
