Replace iris with penguins in examples and tests (#1830)

* Replace iris examples with palmerpenguins

* Fix duplicate line

* Re-generate documentation

* Replaces iris with penguin in tests

Author: Julian Stanley

DESCRIPTION

@@ -74,7 +74,8 @@ Suggests:
     processx,
     plotlyGeoAssets,
     forcats,
-    thematic
+    thematic,
+    palmerpenguins
 LazyData: true
 RoxygenNote: 7.1.1
 Encoding: UTF-8

R/ggplotly.R

@@ -36,8 +36,9 @@
 #' @seealso [plot_ly()]
 #' @examples \dontrun{
 #' # simple example
-#' ggiris <- qplot(Petal.Width, Sepal.Length, data = iris, color = Species)
-#' ggplotly(ggiris)
+#' ggpenguins <- qplot(bill_length_mm , body_mass_g, 
+#' data = palmerpenguins::penguins, color = species)
+#' ggplotly(ggpenguins)
 #'
 #' data(canada.cities, package = "maps")
 #' viz <- ggplot(canada.cities, aes(long, lat)) +
@@ -58,7 +59,7 @@
 #' demo("crosstalk-highlight-ggplotly", package = "plotly")
 #' 
 #' # client-side linked brushing in a scatterplot matrix
-#' highlight_key(iris) %>%
+#' highlight_key(palmerpenguins::penguins) %>%
 #'   GGally::ggpairs(aes(colour = Species), columns = 1:4) %>%
 #'   ggplotly(tooltip = c("x", "y", "colour")) %>%
 #'   highlight("plotly_selected")

R/plotly.R

@@ -118,12 +118,12 @@
 #' # You might notice plot_ly() has named arguments that aren't in this figure
 #' # reference. These arguments make it easier to map abstract data values to
 #' # visual attributes.
-#' p <- plot_ly(iris, x = ~Sepal.Width, y = ~Sepal.Length) 
-#' add_markers(p, color = ~Petal.Length, size = ~Petal.Length)
-#' add_markers(p, color = ~Species)
-#' add_markers(p, color = ~Species, colors = "Set1")
-#' add_markers(p, symbol = ~Species)
-#' add_paths(p, linetype = ~Species)
+#' p <- plot_ly(palmerpenguins::penguins, x = ~bill_length_mm, y = ~body_mass_g)
+#' add_markers(p, color = ~bill_depth_mm, size = ~bill_depth_mm)
+#' add_markers(p, color = ~species)
+#' add_markers(p, color = ~species, colors = "Set1")
+#' add_markers(p, symbol = ~species)
+#' add_paths(p, linetype = ~species)
 #' 
 #' }
 #' 

man/ggplotly.Rd

@@ -93,7 +93,7 @@ test_that("Can overwrite a grid", {
 
   id <- new_id()
   m <- api_create(mtcars, id)
-  m2 <- api_create(iris, id)
+  m2 <- api_create(palmerpenguins::penguins, id)
   expect_true(identical(m$embed_url, m2$embed_url))
   expect_false(identical(m$cols, m2$cols))
 })

man/plot_ly.Rd

@@ -1,41 +1,41 @@
 context("labels")
 
 test_that("ggtitle is translated correctly", {
-  ggiris <- ggplot(iris) +
-    geom_point(aes(Petal.Width, Sepal.Width)) +
+  ggpenguin <- ggplot(palmerpenguins::penguins) +
+    geom_point(aes(bill_length_mm, bill_depth_mm)) +
     ggtitle("My amazing plot!")
-  info <- expect_doppelganger_built(ggiris, "labels-ggtitle")
+  info <- expect_doppelganger_built(ggpenguin, "labels-ggtitle")
   expect_identical(info$layout$title$text, "My amazing plot!")
 })
 
 test_that("ylab is translated correctly", {
-  ggiris <- ggplot(iris) +
-    geom_point(aes(Petal.Width, Sepal.Width)) +
-    ylab("sepal width")
-  info <- expect_doppelganger_built(ggiris, "labels-ylab")
+  ggpenguin <- ggplot(palmerpenguins::penguins) +
+    geom_point(aes(bill_length_mm, bill_depth_mm)) +
+    ylab("bill depth")
+  info <- expect_doppelganger_built(ggpenguin, "labels-ylab")
   labs <- c(info$layout$xaxis$title$text, info$layout$yaxis$title$text)
-  expect_identical(labs, c("Petal.Width", "sepal width"))
+  expect_identical(labs, c("bill_length_mm", "bill depth"))
 })
 
 test_that("scale_x_continuous(name) is translated correctly", {
-  ggiris <- ggplot(iris) +
-    geom_point(aes(Petal.Width, Sepal.Width)) +
-    scale_x_continuous("petal width")
-  info <- expect_doppelganger_built(ggiris, "labels-scale_x_continuous_name")
+  ggpenguin <- ggplot(palmerpenguins::penguins) +
+    geom_point(aes(bill_length_mm, bill_depth_mm)) +
+    scale_x_continuous("bill length")
+  info <- expect_doppelganger_built(ggpenguin, "labels-scale_x_continuous_name")
   labs <- c(info$layout$xaxis$title$text, info$layout$yaxis$title$text)
-  expect_identical(labs, c("petal width", "Sepal.Width"))
+  expect_identical(labs, c("bill length", "bill_depth_mm"))
 })
 
 test_that("angled ticks are translated correctly", {
-  ggiris <- ggplot(iris) +
-    geom_point(aes(Petal.Width, Sepal.Width)) +
+  ggpenguin <- ggplot(palmerpenguins::penguins) +
+    geom_point(aes(bill_length_mm, bill_depth_mm)) +
     theme(axis.text.x = element_text(angle = 45))
-  info <- expect_doppelganger_built(ggiris, "labels-angles")
+  info <- expect_doppelganger_built(ggpenguin, "labels-angles")
   expect_identical(info$layout$xaxis$tickangle, -45)
 })
 
 test_that("xaxis/yaxis automargin defaults to TRUE", {
-  p <- ggplot(iris, aes(Species)) + geom_bar() + coord_flip()
+  p <- ggplot(palmerpenguins::penguins, aes(species)) + geom_bar() + coord_flip()
   l <- plotly_build(p)$x
   expect_true(l$layout$xaxis$automargin)
   expect_true(l$layout$yaxis$automargin)
@@ -49,7 +49,8 @@ test_that("factor labels work", {
 })
 
 test_that("empty labels work", {
-  p <- ggplot(iris, aes(Petal.Length, Sepal.Width, color = Species)) + 
+  p <- ggplot(palmerpenguins::penguins, 
+              aes(bill_length_mm, bill_depth_mm, color = species)) + 
     geom_point() + 
     labs(x = element_blank(), y = element_blank())
   b <- expect_doppelganger_built(p, "labs-element-blank")

tests/testthat/test-api.R

@@ -72,8 +72,9 @@ test_that("very long legend items", {
   info <- expect_traces(p_long_items, 3, "very-long-legend-items")
 })
 
-iris$All <- "All species"
-p <- qplot(data = iris, x = Sepal.Length, y = Sepal.Width, color = All)
+penguins <- palmerpenguins::penguins
+penguins$All <- "All species"
+p <- qplot(data = penguins, x = bill_length_mm, y = bill_depth_mm, color = All)
 
 test_that("legend is created with discrete mapping regardless of unique values", {
   info <- expect_traces(p, 1, "one-entry")

tests/testthat/test-ggplot-labels.R

@@ -1,9 +1,9 @@
 context("size")
 
 test_that("size is a vector if it is specified", {
-  iplot <- ggplot(iris) +
-    geom_point(aes(Petal.Width, Sepal.Width, size=Petal.Length))
-  L <- expect_doppelganger_built(iplot, "size-is-a-vector")
+  pplot <- ggplot(palmerpenguins::penguins) +
+    geom_point(aes(bill_length_mm, bill_depth_mm, size=flipper_length_mm))
+  L <- expect_doppelganger_built(pplot, "size-is-a-vector")
   m <- L$data[[1]]$marker
   expect_that(m, is_a("list"))
   expect_true(length(m$size) > 1)

tests/testthat/test-ggplot-legend.R

@@ -1,24 +1,24 @@
 context("ggplot themes")
 
-iris.base <- ggplot(iris) +
-  geom_point(aes(Petal.Width, Sepal.Width)) +
+penguin.base <- ggplot(palmerpenguins::penguins) +
+  geom_point(aes(bill_length_mm, bill_length_mm)) +
   theme_grey()
 
 test_that("background translated correctly",{
-  ggiris <- iris.base + 
+  ggpenguin <- penguin.base + 
     theme(panel.background = element_rect(fill = "blue"),
           plot.background = element_rect(fill = "green"))
-  info <- expect_doppelganger_built(ggiris, "theme-background")
+  info <- expect_doppelganger_built(ggpenguin, "theme-background")
   L <- info$layout
   expect_true(L$plot_bgcolor == toRGB("blue"))
   expect_true(L$paper_bgcolor == toRGB("green"))
 })
 
 test_that("grid/ticks translated correctly",{
-  ggiris <- iris.base + 
+  ggpenguin <- penguin.base + 
     theme(axis.ticks = element_line(colour = "red"),
           panel.grid.major = element_line(colour = "violet")) 
-  info <- expect_doppelganger_built(ggiris, "theme-ticks-and-grids")
+  info <- expect_doppelganger_built(ggpenguin, "theme-ticks-and-grids")
   for (xy in c("x", "y")) {
     ax.list <- info$layout[[paste0(xy, "axis")]]
     expect_true(ax.list$tickcolor == toRGB("red"))
@@ -27,17 +27,17 @@ test_that("grid/ticks translated correctly",{
 })
 
 test_that("show ticks as 'outside' by default", {
-  ggiris <- iris.base
-  info <- expect_doppelganger_built(ggiris, "theme-ticks-default")
+  ggpenguin <- penguin.base
+  info <- expect_doppelganger_built(ggpenguin, "theme-ticks-default")
   for (xy in c("x", "y")) {
     ax.list <- info$layout[[paste0(xy, "axis")]]
     expect_identical(ax.list$ticks, "outside")
   }
 })
 
 test_that("do not show zeroline by default", {
-  ggiris <- iris.base
-  info <- expect_doppelganger_built(ggiris, "theme-zeroline-default")
+  ggpenguin <- penguin.base
+  info <- expect_doppelganger_built(ggpenguin, "theme-zeroline-default")
   for (xy in c("x", "y")) {
     ax.list <- info$layout[[paste0(xy, "axis")]]
     expect_identical(ax.list$zeroline, FALSE)
@@ -63,12 +63,12 @@ test_that("marker default shape is a circle", {
 })
 
 test_that("plot panel border is translated correctly", {
-  ggiris <- iris.base + theme_grey() # has no panel.border
-  info <- expect_doppelganger_built(ggiris, "theme-panel-border-1")
+  ggpenguin <- penguin.base + theme_grey() # has no panel.border
+  info <- expect_doppelganger_built(ggpenguin, "theme-panel-border-1")
 
-  red <- ggplot(iris) +
+  red <- ggplot(palmerpenguins::penguins) +
     theme_grey() +
-    geom_point(aes(Petal.Width, Sepal.Width)) +
+    geom_point(aes(bill_length_mm, bill_depth_mm)) +
     theme(panel.border = element_rect(colour = "red", fill = NA))
 
   info <- expect_doppelganger_built(red, "theme-panel-border-2")