rewrote force_tz to avoid weird R bug. Fixes #127.

tidyverse · Oct 3, 2012 · 4b6173b · 4b6173b
1 parent 123d4db
commit 4b6173b
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/time-zones.r b/R/time-zones.r
@@ -47,7 +47,9 @@ force_tz <- function(time, tzone = ""){
   if(is.null(tzone)) tzone <- ""
   new <- ISOdatetime(year(x),  month(x), mday(x), hour(x),
     minute(x), second(x), tzone)
-  new[hour(with_tz(new, tzone)) != hour(time)] <- NA
+
+  missing_hour <- hour(with_tz(new, tzone)) != hour(time)
+  new[missing_hour] <- NA
 
   reclass_date(new, time)
 }