[Fix #490] Correctly compute length of period in months

tidyverse · Mar 2, 2017 · 697e01e · 697e01e
1 parent a338a41
commit 697e01e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/coercion.r b/R/coercion.r
@@ -547,7 +547,7 @@ seconds_to_unit <- function(secs, unit = "second"){
          minute = secs / 60,
          hour   = secs / 3600,
          day    = secs / 86400,
-         month  = secs / (86400 * 365.25)/12,
+         month  = secs / (86400 * 365.25 / 12),
          week   = secs / (86400 * 7),
          year   = secs / (86400 * 365.25),
          stop("invalid unit ", unit))