Merge pull request #106 from trevorld/difftime

feat: Add 'as.nanoduration.difftime()'

ChangeLog

@@ -1,3 +1,9 @@
+2022-10-14  Trevor L Davis  <trevor.l.davis@gmail.com>
+
+	* R/nanoduration.R (as.nanoduration.difftime): Added
+	* man/nanoduration.Rd: Updated
+	* inst/tinytest/test_nanoduration.R: Add tests
+
 2022-10-13  Trevor L Davis  <trevor.l.davis@gmail.com>
 
 	* R/nanoduration.R (nanoduration): Add default arguments equal to zero

R/nanoduration.R

@@ -141,6 +141,19 @@ setMethod("as.nanoduration",
 
 setAs("integer", "nanoduration", function(from) as.nanoduration(from))
 
+##' @rdname nanoduration
+setMethod("as.nanoduration",
+          "difftime",
+          function(x) {
+              x <- as.numeric(x, units = "secs")
+              s <- as.integer(x) # seconds
+              n <- as.integer(1e9 * (x - s)) # nanoseconds
+              nanoduration(seconds = s, nanoseconds = n)
+})
+
+setAs("difftime", "nanoduration", function(from) as.nanoduration(from))
+
+
 ##' @rdname nanoduration
 setMethod("as.nanoduration",
           "NULL",

inst/tinytest/test_nanoduration.R

@@ -613,3 +613,11 @@ expect_identical(nano_floor(as.nanotime("2010-10-10 12:23:23.123456789 UTC"), as
 ## rep
 expect_identical(rep(as.nanoduration(1), 2), as.nanoduration(rep(1,2)))
 expect_identical(rep(as.nanoduration(1:2), each=2), as.nanoduration(rep(1:2, each=2)))
+
+## difftime
+expect_identical(as.nanoduration(as.difftime(2, units = "secs")),
+                 nanoduration(seconds = 2))
+expect_identical(as.nanoduration(as.difftime(2.5, units = "secs")),
+                 nanoduration(seconds = 2, nanoseconds = 5e8))
+expect_identical(as.nanoduration(as.difftime(2, units = "hours")),
+                 nanoduration(hours = 2))