Skip to content

Patch for "units<-" in datetime.R

1 message · Jeffrey Horner

Original
Jeffrey Horner
# 
Index: src/library/base/R/datetime.R
===================================================================
--- src/library/base/R/datetime.R       (revision 40781)
+++ src/library/base/R/datetime.R       (working copy)
@@ -381,7 +381,7 @@
      if (from == value) return(x)
      if (!(value %in% c("secs", "mins", "hours", "days", "weeks")))
          stop("invalid units specified")
-    sc <- cumprod(c(sec=1, mins=60, hours=60, days=24, weeks=7))
+    sc <- cumprod(c(secs=1, mins=60, hours=60, days=24, weeks=7))
      newx <- as.vector(x)*sc[from]/sc[value]
      structure(newx, units=value, class="difftime")
  }

Cheers,

Jeff