Allow transform = "hms" in datetime_scale()

teunbrand · teunbrand · commit 5eb22edd6409 · 2025-01-13T10:32:11.000+01:00
diff --git a/R/scale-date.R b/R/scale-date.R
@@ -324,15 +324,17 @@ datetime_scale <- function(aesthetics, transform, trans = deprecated(),
     scale_class <- switch(
       transform,
       date = ScaleContinuousDate,
-      time = ScaleContinuousDatetime
+      time = ScaleContinuousDatetime,
+      ScaleContinuous
     )
   } else {
     scale_class <- ScaleContinuous
   }
 
   transform <- switch(transform,
     date = transform_date(),
-    time = transform_time(timezone)
+    time = transform_time(timezone),
+    hms  = transform_hms()
   )
 
   sc <- continuous_scale(

Original file line number	Diff line number	Diff line change
`@@ -324,15 +324,17 @@ datetime_scale <- function(aesthetics, transform, trans = deprecated(),`
`324`	`324`	`scale_class <- switch(`
`325`	`325`	`transform,`
`326`	`326`	`date = ScaleContinuousDate,`
`327`		`- time = ScaleContinuousDatetime`
	`327`	`+ time = ScaleContinuousDatetime,`
	`328`	`+ ScaleContinuous`
`328`	`329`	`)`
`329`	`330`	`} else {`
`330`	`331`	`scale_class <- ScaleContinuous`
`331`	`332`	`}`
`332`	`333`
`333`	`334`	`transform <- switch(transform,`
`334`	`335`	`date = transform_date(),`
`335`		`- time = transform_time(timezone)`
	`336`	`+ time = transform_time(timezone),`
	`337`	`+ hms = transform_hms()`
`336`	`338`	`)`
`337`	`339`
`338`	`340`	`sc <- continuous_scale(`