Merge pull request #1 from xvrdm/xvrdm-round_date-patch-1

Make round_date() really use week_start=
xvrdm · Nov 27, 2018 · 14cd27a · 14cd27a
2 parents f5b92c3 + fe5f869
commit 14cd27a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/round.r b/R/round.r
@@ -131,9 +131,9 @@ round_date <- function(x, unit = "second", week_start = getOption("lubridate.wee
       ## special case for fast rounding
       round.POSIXt(x, units = lub2base_units[[basic_unit]])
     } else {
-      above <- unclass(as.POSIXct(ceiling_date(x, unit)))
+      above <- unclass(as.POSIXct(ceiling_date(x, unit, week_start)))
       mid <- unclass(as.POSIXct(x))
-      below <- unclass(as.POSIXct(floor_date(x, unit)))
+      below <- unclass(as.POSIXct(floor_date(x, unit, week_start)))
       wabove <- (above - mid) <= (mid - below)
       wabove <- !is.na(wabove) & wabove
       new <- below