Fix stamp_time orders

brancengregory · vspinu · commit 77ee296cc515 · 2025-10-29T12:35:56.000+01:00
diff --git a/R/stamp.r b/R/stamp.r
@@ -228,7 +228,7 @@ stamp_date <- function(x, locale = Sys.getlocale("LC_TIME"), quiet = FALSE) {
 ##' @export
 stamp_time <- function(x, locale = Sys.getlocale("LC_TIME"), quiet = FALSE) {
   stamp(x,
-    orders = c("hms", "hm", "ms", "h", "m", "s"),
+    orders = c("T", "R", "MS", "r", "M", "S"),
     locale = locale, quiet = quiet
   )
 }

Original file line number	Diff line number	Diff line change
`@@ -228,7 +228,7 @@ stamp_date <- function(x, locale = Sys.getlocale("LC_TIME"), quiet = FALSE) {`
`228`	`228`	`##' @export`
`229`	`229`	`stamp_time <- function(x, locale = Sys.getlocale("LC_TIME"), quiet = FALSE) {`
`230`	`230`	`stamp(x,`
`231`		`- orders = c("hms", "hm", "ms", "h", "m", "s"),`
	`231`	`+ orders = c("T", "R", "MS", "r", "M", "S"),`
`232`	`232`	`locale = locale, quiet = quiet`
`233`	`233`	`)`
`234`	`234`	`}`