update test expectations

Author: cpsievert

tests/testthat/test-cookbook-axes.R

@@ -106,7 +106,7 @@ no.x.title <- bp +
 
 test_that("coord_fixed(ratio)", {
   info <- expect_traces(no.x.title, 1, "no-x-title")
-  expect_identical(info$layout$xaxis$title, "")
+  expect_identical(info$layout$xaxis$title$text, "")
 })
 
 # Also possible to set the axis label with the scale
@@ -133,8 +133,8 @@ bp.fonts <- bp +
 test_that("element_text face, colour, size, angle, vjust, size", {
   info <- expect_traces(bp.fonts, 1, "fonts")
   expect_equivalent(info$layout$xaxis$tickangle, -90)
-  expect_match(info$layout$xaxis$title, "<b>", fixed = TRUE)
-  expect_match(info$layout$xaxis$title, "</b>", fixed = TRUE)
+  expect_match(info$layout$xaxis$title$text, "<b>", fixed = TRUE)
+  expect_match(info$layout$xaxis$title$text, "</b>", fixed = TRUE)
 })
 
 # Label formatters

tests/testthat/test-ggplot-labels.R

@@ -13,7 +13,7 @@ test_that("ylab is translated correctly", {
     geom_point(aes(Petal.Width, Sepal.Width)) +
     ylab("sepal width")
   info <- expect_doppelganger_built(ggiris, "labels-ylab")
-  labs <- c(info$layout$xaxis$title, info$layout$yaxis$title)
+  labs <- c(info$layout$xaxis$title$text, info$layout$yaxis$title$text)
   expect_identical(labs, c("Petal.Width", "sepal width"))
 })
 

tests/testthat/test-ggplot-point.R

@@ -67,6 +67,6 @@ test_that("can flip axes", {
     coord_flip()
 
   info <- expect_doppelganger_built(p, "point-flip")
-  expect_equivalent(info$layout$xaxis$title, "price")
-  expect_equivalent(info$layout$yaxis$title, "carat")
+  expect_equivalent(info$layout$xaxis$title$text, "price")
+  expect_equivalent(info$layout$yaxis$title$text, "carat")
 })