gf

trinker · Aug 18, 2017 · 4ef47b8 · 4ef47b8
1 parent 1a085fe
commit 4ef47b8
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 1 deletion.
diff --git a/NAMESPACE b/NAMESPACE
@@ -2,6 +2,7 @@
 
 S3method(f_12_hour,default)
 S3method(f_12_hour,integer)
+S3method(f_12_hour,numeric)
 S3method(f_month,Date)
 S3method(f_month,POSIXlt)
 S3method(f_month,default)

diff --git a/R/f_12_hour.R b/R/f_12_hour.R
@@ -29,7 +29,7 @@ f_12_hour <- function(x = Sys.time(), format = '%I:%M %p', pad.char = '', ...){
 #' @method f_12_hour default
 f_12_hour.default <- function(x, format = '%I:%M %p', pad.char = '', ...){
 
-    out <- format(as.POSIXct(x, ...), format = format)
+    out <- format(as.POSIXct(x, ..., origin = "1960-01-01"), format = format)
     gsub('^0', pad.char, out)
 
 }

diff --git a/man/f_12_hour.Rd b/man/f_12_hour.Rd