date_labels should be string too

teunbrand · teunbrand · commit fd5a8315c759 · 2024-09-10T10:03:43.000+02:00
diff --git a/R/scale-date.R b/R/scale-date.R
@@ -311,6 +311,7 @@ datetime_scale <- function(aesthetics, transform, trans = deprecated(),
     minor_breaks <- breaks_width(date_minor_breaks)
   }
   if (!is.waive(date_labels)) {
+    check_string(date_labels)
     labels <- function(self, x) {
       tz <- self$timezone %||% "UTC"
       label_date(date_labels, tz)(x)

Original file line number	Diff line number	Diff line change
`@@ -311,6 +311,7 @@ datetime_scale <- function(aesthetics, transform, trans = deprecated(),`
`311`	`311`	`minor_breaks <- breaks_width(date_minor_breaks)`
`312`	`312`	`}`
`313`	`313`	`if (!is.waive(date_labels)) {`
	`314`	`+ check_string(date_labels)`
`314`	`315`	`labels <- function(self, x) {`
`315`	`316`	`tz <- self$timezone %\|\|% "UTC"`
`316`	`317`	`label_date(date_labels, tz)(x)`