Unified msg format on geom_smooth

laresbernardo · web-flow · commit f35b764136a5 · 2021-10-01T16:21:23.000-03:00
diff --git a/R/stat-smooth.r b/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

Original file line number	Diff line number	Diff line change
`@@ -108,7 +108,7 @@ StatSmooth <- ggproto("StatSmooth", Stat,`
`108`	`108`	`} else {`
`109`	`109`	`params$formula <- y ~ x`
`110`	`110`	`}`
`111`		`- msg <- c(msg, paste0("formula '", deparse(params$formula), "'"))`
	`111`	`+ msg <- c(msg, paste0("formula = '", deparse(params$formula), "'"))`
`112`	`112`	`}`
`113`	`113`	`if (identical(params$method, "gam")) {`
`114`	`114`	`params$method <- mgcv::gam`