[Fix #251] Correct computaton of weeks

tidyverse · Dec 14, 2014 · 4429eb6 · 4429eb6
1 parent 5359785
commit 4429eb6
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/R/accessors-week.r b/R/accessors-week.r
@@ -21,13 +21,11 @@ NULL
 #' week(x) <- 54
 #' week(x) > 3
 week <- function(x)
-  yday(x) %/% 7 + 1
-
+  (yday(x) - 1) %/% 7 + 1
 
 "week<-" <- function(x, value)
   x <- x + days((value - week(x)) * 7)
 
-
 isoweek <- function(x){
   xday <- ISOdate(year(x), month(x), day(x), tz = tz(x))
   dn <- 1 + (wday(x) + 5) %% 7