Ggplot update review (#293)

* Update test-plot_fastest to reflect ggplot2 4.0.0 changes

#292

* Update NEWS.md

Author: pbulsink

NEWS.md

@@ -5,6 +5,7 @@
 * Removed support for FastF1 v < 3.0 (now causes errors instead of warnings).
 * Test suite and automated testing changes to reflect the above changes.
 * Fixed a data conversion issue in `time_to_sec()` (#290)
+* Updated testing to comply with changes in ggplot2 (#292)
 
 # f1dataR 2.0.1
 

tests/testthat/test-plot_fastest.R

@@ -59,15 +59,15 @@ test_that("graphics work", {
       qualiplot <- plot_fastest(2023, 1, "Q", "HAM", "gear")
     })
   })
-  expect_equal(gear$label$title, speed$label$title)
-  expect_equal(gear$label$caption, "Generated by {f1dataR} package")
-  expect_true(grepl("Lewis Hamilton Fastest Lap", gear$label$subtitle))
+  expect_equal(ggplot2::get_labs(gear)$title, ggplot2::get_labs(speed)$title)
+  expect_equal(ggplot2::get_labs(gear)$caption, "Generated by {f1dataR} package")
+  expect_true(grepl("Lewis Hamilton Fastest Lap", ggplot2::get_labs(gear)$subtitle))
 
-  expect_equal(qualiplot$label$title, "2023 Bahrain Grand Prix Qualifying")
+  expect_equal(ggplot2::get_labs(qualiplot)$title, "2023 Bahrain Grand Prix Qualifying")
 
   qp_axis <- qualiplot + theme_dark_f1(axis_marks = TRUE)
 
-  expect_equal(qp_axis$labels, qualiplot$labels)
+  expect_equal(ggplot2::get_labs(qp_axis), ggplot2::get_labs(qualiplot))
 })
 
 test_that("correct_track_ratio works", {

tests/testthat/test-utils.R

@@ -14,7 +14,7 @@ test_that("utility functions work", {
   # get_jolpica_content() is inherently tested in load_x functions too
   url <- "2022/circuits.json"
 
-  expect_warning(get_ergast_content(url), regexp = "was deprecated in f1dataR")
+  suppressWarnings(expect_warning(get_ergast_content(url), regexp = "was deprecated in f1dataR"))
   # Test for ergast deprecation
 
   # Test add_col_if_absent()