Apply suggestions from code review

teunbrand · thomasp85 · web-flow · commit 63d4bda7026c · 2024-11-11T11:47:19.000+01:00
Co-authored-by: Thomas Lin Pedersen &lt;thomasp85@gmail.com&gt;
diff --git a/R/scale-date.R b/R/scale-date.R
@@ -370,8 +370,7 @@ ScaleContinuousDatetime <- ggproto("ScaleContinuousDatetime", ScaleContinuous,
       ), call = self$call)
     }
     if (inherits(x, "Date")) {
-     cli::cli_abort("You supplied a {.cls {class(x)}} field.
-                    Did you mean to use {.fn scale_*_date}?", call = self$call)
+     x <- as.POSIXct(x)
     }
     ggproto_parent(ScaleContinuous, self)$transform(x)
   },
@@ -421,8 +420,7 @@ ScaleContinuousDate <- ggproto("ScaleContinuousDate", ScaleContinuous,
       ), call = self$call)
     }
     if (inherits(x, "POSIXct")) {
-      cli::cli_abort("You supplied a {.cls {class(x)}} field.
-                    Did you mean to use {.fn scale_*_datetime}?", call = self$call)
+      x <- as.Date(x)
     }
     ggproto_parent(ScaleContinuous, self)$transform(x)
   },

Original file line number	Diff line number	Diff line change
`@@ -370,8 +370,7 @@ ScaleContinuousDatetime <- ggproto("ScaleContinuousDatetime", ScaleContinuous,`
`370`	`370`	`), call = self$call)`
`371`	`371`	`}`
`372`	`372`	`if (inherits(x, "Date")) {`
`373`		`- cli::cli_abort("You supplied a {.cls {class(x)}} field.`
`374`		`- Did you mean to use {.fn scale_*_date}?", call = self$call)`
	`373`	`+ x <- as.POSIXct(x)`
`375`	`374`	`}`
`376`	`375`	`ggproto_parent(ScaleContinuous, self)$transform(x)`
`377`	`376`	`},`
`@@ -421,8 +420,7 @@ ScaleContinuousDate <- ggproto("ScaleContinuousDate", ScaleContinuous,`
`421`	`420`	`), call = self$call)`
`422`	`421`	`}`
`423`	`422`	`if (inherits(x, "POSIXct")) {`
`424`		`- cli::cli_abort("You supplied a {.cls {class(x)}} field.`
`425`		`- Did you mean to use {.fn scale_*_datetime}?", call = self$call)`
	`423`	`+ x <- as.Date(x)`
`426`	`424`	`}`
`427`	`425`	`ggproto_parent(ScaleContinuous, self)$transform(x)`
`428`	`426`	`},`