check type for date_breaks and date_minor_breaks #5880

RodDalBen · RodDalBen · commit b53b2d067424 · 2024-08-15T14:47:20.000-06:00
diff --git a/R/scale-date.R b/R/scale-date.R
@@ -303,9 +303,11 @@ datetime_scale <- function(aesthetics, transform, trans = deprecated(),
   if (is.character(minor_breaks)) minor_breaks <- breaks_width(minor_breaks)
 
   if (!is.waive(date_breaks)) {
+    check_string(date_breaks)
     breaks <- breaks_width(date_breaks)
   }
   if (!is.waive(date_minor_breaks)) {
+    check_string(date_minor_breaks)
     minor_breaks <- breaks_width(date_minor_breaks)
   }
   if (!is.waive(date_labels)) {

Original file line number	Diff line number	Diff line change
`@@ -303,9 +303,11 @@ datetime_scale <- function(aesthetics, transform, trans = deprecated(),`
`303`	`303`	`if (is.character(minor_breaks)) minor_breaks <- breaks_width(minor_breaks)`
`304`	`304`
`305`	`305`	`if (!is.waive(date_breaks)) {`
	`306`	`+ check_string(date_breaks)`
`306`	`307`	`breaks <- breaks_width(date_breaks)`
`307`	`308`	`}`
`308`	`309`	`if (!is.waive(date_minor_breaks)) {`
	`310`	`+ check_string(date_minor_breaks)`
`309`	`311`	`minor_breaks <- breaks_width(date_minor_breaks)`
`310`	`312`	`}`
`311`	`313`	`if (!is.waive(date_labels)) {`