eliminate use of univariate qplot()

Author: cpsievert

R/helpers.R

@@ -144,7 +144,7 @@ hide_legend <- function(p) {
 #' @examples 
 #' 
 #' # currently no bargl trace type
-#' toWebGL(qplot(1:10))
+#' toWebGL(ggplot() + geom_bar(aes(1:10)))
 #' toWebGL(qplot(1:10, 1:10))
 #' 
 toWebGL <- function(p) {

inst/examples/rmd/printing/index.Rmd

@@ -47,7 +47,7 @@ The `api_create()` function also understands how to "upload" ggplot2/plotly obje
 
 
 ```{r}
-p <- api_create(qplot(1:10))
+p <- api_create(qplot(1:10, 1:10))
 p
 ```
 

man/toWebGL.Rd

@@ -92,15 +92,15 @@ save_outputs <- function(gg, name) {
       ggFile <- paste("ggplot", filename, sep = "-")
       res <- tryCatch(ggsave(ggFile, gg), 
                       error = function(e) {
-                        err <- qplot() + 
+                        err <- ggplot() + 
                           annotate('text', label = paste('Error:', e$message), 
                                    x = 1, y = 1, color = 'red')
                         ggsave(ggFile, err, width = 3, height = 2, units = 'in')
                       })
       img <- function(x, f) {
         tryCatch(plotly_IMAGE(x, out_file = f, width = 300, height = 400),
                  error = function(e) {
-                   err <- qplot() + 
+                   err <- ggplot() + 
                      annotate('text', label = paste('Error:', e$message), 
                               x = 1, y = 1, color = 'red')
                    # TODO: convert pixels to inches?

tests/testthat.R

@@ -140,10 +140,7 @@ test_that("Can create plots with non-trivial src attributes", {
   expect_srcified(trace$marker$colorsrc)
 
   # can src-ify layout.xaxis.tickvals
-  res <- api_create(qplot(1:10))
+  res <- api_create(ggplot() + geom_bar(aes(1:10)))
   expect_srcified(res$figure$layout$xaxis$tickvalssrc)
 
 })
-
-
-