demote warning to message

teunbrand · teunbrand · commit 67434795a894 · 2025-06-18T13:46:21.000+02:00
diff --git a/R/labels.R b/R/labels.R
@@ -92,7 +92,7 @@ setup_plot_labels <- function(plot, layers, data) {
     extra_labels <- paste0("{.field ", extra_labels, "} : ", warn_labels)
     names(extra_labels) <- rep("*", length(extra_labels))
 
-    cli::cli_warn(c(
+    cli::cli_inform(c(
       "Ignoring unknown labels:",
       extra_labels
     ))
diff --git a/tests/testthat/_snaps/labels.md b/tests/testthat/_snaps/labels.md
@@ -14,10 +14,13 @@
 
 # warnings are thrown for unknown labels
 
-    Ignoring unknown labels:
-    * foo : "i don't exist"
-    * bar : <function>
-    * qux : "expression(me * neither)"
+    Code
+      p <- ggplot_build(p)
+    Message
+      Ignoring unknown labels:
+      * foo : "i don't exist"
+      * bar : <function>
+      * qux : "expression(me * neither)"
 
 # plot.tag.position rejects invalid input
 
diff --git a/tests/testthat/test-labels.R b/tests/testthat/test-labels.R
@@ -117,7 +117,7 @@ test_that("warnings are thrown for unknown labels", {
       bar = function(x) "i don't exist either",
       qux = expression(me * neither)
     )
-  expect_snapshot_warning(ggplot_build(p))
+  expect_snapshot(p <- ggplot_build(p))
 })
 
 test_that("plot.tag.position rejects invalid input", {

Original file line number	Diff line number	Diff line change
`@@ -117,7 +117,7 @@ test_that("warnings are thrown for unknown labels", {`
`117`	`117`	`bar = function(x) "i don't exist either",`
`118`	`118`	`qux = expression(me * neither)`
`119`	`119`	`)`
`120`		`- expect_snapshot_warning(ggplot_build(p))`
	`120`	`+ expect_snapshot(p <- ggplot_build(p))`
`121`	`121`	`})`
`122`	`122`
`123`	`123`	`test_that("plot.tag.position rejects invalid input", {`