Update aesthetics of length 1 warning (#5799)

* update message

* update snapshot

* Update R/layer.R

Co-authored-by: Thomas Lin Pedersen <[email protected]>

* propagate suggestion to snapshot

---------

Co-authored-by: Thomas Lin Pedersen <[email protected]>

Author: teunbrand

R/layer.R

@@ -334,7 +334,8 @@ Layer <- ggproto("Layer", NULL,
         && length(aes_n) > 0 && all(aes_n == 1) && n > 1) {
       cli::cli_warn(c(
         "All aesthetics have length 1, but the data has {n} rows.",
-        i = "Did you mean to use {.fn annotate}?"
+        i = "Please consider using {.fn annotate} or provide this layer \\
+        with data containing a single row."
       ), call = self$constructor)
     }
     check_aesthetics(evaled, n)

tests/testthat/_snaps/layer.md

@@ -87,7 +87,7 @@
 # layer warns for constant aesthetics
 
     All aesthetics have length 1, but the data has 32 rows.
-    i Did you mean to use `annotate()`?
+    i Please consider using `annotate()` or provide this layer with data containing a single row.
 
 # layer_data returns a data.frame