Update f_date.R

trinker · Aug 13, 2017 · 0247471 · 0247471
1 parent 53196db
commit 0247471
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/f_date.R b/R/f_date.R
@@ -15,7 +15,7 @@
 #' set.seed(10)
 #' dates <- as.Date(sample(1:10000, 12), origin = '1970-01-01')
 #' paste(f_date(range(dates)), collapse = ' to ')
-f_date <- function(x, format = '%B %d, %Y', ...){
+f_date <- function(x = Sys.Date(), format = '%B %d, %Y', ...){
 
     format(as.Date(x, ...), format = format)