added origin f_12_hour

trinker · Aug 18, 2017 · 83a3215 · 83a3215
1 parent 872690c
commit 83a3215
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)