Unified message format in geom_smooth() (#4634)

Author: laresbernardo

R/stat-smooth.r

@@ -108,7 +108,7 @@ StatSmooth <- ggproto("StatSmooth", Stat,
       } else {
         params$formula <- y ~ x
       }
-      msg <- c(msg, paste0("formula '", deparse(params$formula), "'"))
+      msg <- c(msg, paste0("formula = '", deparse(params$formula), "'"))
     }
     if (identical(params$method, "gam")) {
       params$method <- mgcv::gam

tests/testthat/test-geom-smooth.R

@@ -42,7 +42,7 @@ test_that("default smoothing methods for small and large data sets work", {
 
   expect_message(
     plot_data <- layer_data(p),
-    "method = 'loess' and formula 'y ~ x'"
+    "method = 'loess' and formula = 'y ~ x'"
   )
   expect_equal(plot_data$y, as.numeric(out))
 
@@ -61,7 +61,7 @@ test_that("default smoothing methods for small and large data sets work", {
 
   expect_message(
     plot_data <- layer_data(p),
-    "method = 'gam' and formula 'y ~ s\\(x, bs = \"cs\"\\)"
+    "method = 'gam' and formula = 'y ~ s\\(x, bs = \"cs\"\\)"
   )
   expect_equal(plot_data$y, as.numeric(out))
 
@@ -70,7 +70,7 @@ test_that("default smoothing methods for small and large data sets work", {
 
   expect_message(
     plot_data <- layer_data(p),
-    "method = 'gam' and formula 'y ~ s\\(x, bs = \"cs\"\\)"
+    "method = 'gam' and formula = 'y ~ s\\(x, bs = \"cs\"\\)"
   )
   expect_equal(plot_data$y, as.numeric(out))
 })