redocument

cpsievert · cpsievert · commit 7f99f19ed8f7 · 2015-08-03T09:22:20.000-05:00
diff --git a/man/ggplotly.Rd b/man/ggplotly.Rd
@@ -4,7 +4,7 @@
 \alias{ggplotly}
 \title{Create plotly graphs using ggplot2 syntax}
 \usage{
-ggplotly(p = last_plot())
+ggplotly(p = ggplot2::last_plot())
 }
 \arguments{
 \item{p}{a ggplot object.}
diff --git a/tests/testthat/test-plotly-knitr.R b/tests/testthat/test-plotly-knitr.R
@@ -9,7 +9,7 @@ ggplotly(p)
 "
 test_that("plotly embeds inside knitr", {
   html <- knitr::knit2html(text = txt)
-  expect_true(grepl("<iframe", html))
+  expect_true(grepl("iframe", html))
 })
 
 # If you want to interactively see the result

Original file line number	Diff line number	Diff line change
`@@ -4,7 +4,7 @@`
`4`	`4`	`\alias{ggplotly}`
`5`	`5`	`\title{Create plotly graphs using ggplot2 syntax}`
`6`	`6`	`\usage{`
`7`		`-ggplotly(p = last_plot())`
	`7`	`+ggplotly(p = ggplot2::last_plot())`
`8`	`8`	`}`
`9`	`9`	`\arguments{`
`10`	`10`	`\item{p}{a ggplot object.}`
Original file line number	Diff line number	Diff line change
`@@ -9,7 +9,7 @@ ggplotly(p)`
`9`	`9`	`"`
`10`	`10`	`test_that("plotly embeds inside knitr", {`
`11`	`11`	`html <- knitr::knit2html(text = txt)`
`12`		`- expect_true(grepl("<iframe", html))`
	`12`	`+ expect_true(grepl("iframe", html))`
`13`	`13`	`})`
`14`	`14`
`15`	`15`	`# If you want to interactively see the result`