Adapt code output checks to recent changes

Author: llrs-roche

tests/testthat/test_g_expert_cl.R

@@ -6,29 +6,29 @@ testthat::test_that("coloring_ggplot_call can work with all combinations", {
 
   testthat::expect_equal(
     coloring_ggplot_call("ADSL", character(0), character(0), FALSE) %>% deparse(),
-    "aes(colour = ADSL)"
+    "ggplot2::aes(colour = ADSL)"
   )
 
   testthat::expect_equal(
     coloring_ggplot_call("ADSL", "ADSL", character(0), FALSE) %>% deparse(),
-    "aes(colour = ADSL, fill = ADSL)"
+    "ggplot2::aes(colour = ADSL, fill = ADSL)"
   )
   testthat::expect_equal(
     coloring_ggplot_call("ADSL", "ADSL", "ADSL", FALSE) %>% deparse(),
-    "aes(colour = ADSL, fill = ADSL)"
+    "ggplot2::aes(colour = ADSL, fill = ADSL)"
   )
   testthat::expect_equal(
     coloring_ggplot_call("ADSL", "ADSL", character(0), TRUE) %>% deparse(),
-    "aes(colour = ADSL, fill = ADSL)"
+    "ggplot2::aes(colour = ADSL, fill = ADSL)"
   )
 
   testthat::expect_equal(
     coloring_ggplot_call("ADSL", "ADSL", "ADSL", TRUE) %>% deparse(),
-    "aes(colour = ADSL, fill = ADSL, size = ADSL)"
+    "ggplot2::aes(colour = ADSL, fill = ADSL, size = ADSL)"
   )
   testthat::expect_equal(
     coloring_ggplot_call("ADSL", character(0), "ADSL", TRUE) %>% deparse(),
-    "aes(colour = ADSL, size = ADSL)"
+    "ggplot2::aes(colour = ADSL, size = ADSL)"
   )
 })
 testthat::test_that("coloring_ggplot_call can work with all combinations without colour_var", {
@@ -39,26 +39,26 @@ testthat::test_that("coloring_ggplot_call can work with all combinations without
 
   testthat::expect_equal(
     coloring_ggplot_call(character(0), "ADSL", character(0), FALSE) %>% deparse(),
-    "aes(fill = ADSL)"
+    "ggplot2::aes(fill = ADSL)"
   )
   testthat::expect_equal(
     coloring_ggplot_call(character(0), "ADSL", "ADSL", FALSE) %>% deparse(),
-    "aes(fill = ADSL)"
+    "ggplot2::aes(fill = ADSL)"
   )
   testthat::expect_equal(
     coloring_ggplot_call(character(0), "ADSL", character(0), TRUE) %>% deparse(),
-    "aes(fill = ADSL)"
+    "ggplot2::aes(fill = ADSL)"
   )
   testthat::expect_equal(
     coloring_ggplot_call(character(0), "ADSL", "ADSL", TRUE) %>% deparse(),
-    "aes(colour = ADSL, fill = ADSL, size = ADSL)"
+    "ggplot2::aes(colour = ADSL, fill = ADSL, size = ADSL)"
   )
 })
 
 testthat::test_that("coloring_ggplot_call can work size_var", {
   testthat::expect_equal(
     coloring_ggplot_call(character(0), character(0), "ADSL", TRUE) %>% deparse(),
-    "aes(size = ADSL)"
+    "ggplot2::aes(size = ADSL)"
   )
   testthat::expect_equal(
     coloring_ggplot_call(character(0), character(0), character(0), TRUE),