[Fix #664] Fix lookup of period functions in as. period

tidyverse · Apr 10, 2018 · 4bca361 · 4bca361
1 parent 6f222ba
commit 4bca361
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/NEWS.md b/NEWS.md
@@ -11,6 +11,10 @@ Version 1.7.3.9000
 * [#633](https://github.com/tidyverse/lubridate/issues/633) `%%` on intervals relies on `%m+` arithmetic and doesn't produce NAs when intermediate computations result in non-existent dates.
 * `tz()` always returns "UTC" when `tzone` attribute cannot be inferred.
 
+### BUG FIXES
+
+* [#664](https://github.com/tidyverse/lubridate/issues/664) Fix lookup of period functions in `as.period`
+
 Version 1.7.3
 =============
 

diff --git a/R/coercion.r b/R/coercion.r
@@ -350,7 +350,9 @@ setMethod("as.period", signature(x = "numeric"), function(x, unit = "second", ..
   x <- as.numeric(x)
   if (missing(unit)) unit <- "second"
   unit <- standardise_date_names(unit)
-  f <- match.fun(paste(unit, "s", sep = ""))
+  f <- get(paste(unit, "s", sep = ""),
+           envir = asNamespace("lubridate"),
+           mode = "function", inherits = FALSE)
   f(x)
 })