fix ceiling_date return type when unit = "week"

Closes tidyverse#479
shrektan · Sep 27, 2016 · d11aa4a · d11aa4a
1 parent d561bf1
commit d11aa4a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/round.r b/R/round.r
@@ -137,7 +137,7 @@ round_date <- function(x, unit = "second") {
 }
 
 reclass_date_maybe <- function(new, orig, unit){
-  if(is.Date(orig) && !unit %in% c("day", "month", "year")) as.POSIXct(new)
+  if(is.Date(orig) && !unit %in% c("day", "week", "month", "year")) as.POSIXct(new)
   else reclass_date(new, orig)
 }