From 83a3215b1b51bea6877ddd57149b4f3b3a73b09b Mon Sep 17 00:00:00 2001 From: Tyler Rinker Date: Fri, 18 Aug 2017 15:07:38 -0400 Subject: [PATCH] added origin f_12_hour --- R/f_12_hour.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/f_12_hour.R b/R/f_12_hour.R index 88b83ec..8ba4767 100644 --- a/R/f_12_hour.R +++ b/R/f_12_hour.R @@ -41,7 +41,7 @@ f_12_hour.default <- function(x, format = '%I:%M %p', pad.char = '', ...){ f_12_hour.integer <- function(x, format = '%I:%M %p', pad.char = '', ...){ - out <- format(as.POSIXct(paste0("2017-08-18 ", ifelse(nchar(x) == 1, '0', ''), x, ":00:00")), format=format) + out <- format(as.POSIXct(paste0("2017-08-18 ", ifelse(nchar(x) == 1, '0', ''), x, ":00:00"), origin = "1960-01-01"), format=format) gsub('^0', pad.char, out)