nanoduration / nanoduration returns double instead of integer64

Author: lsilvest

ChangeLog

@@ -1,3 +1,7 @@
+2024-05-24  Leonardo Silvestri  <[email protected]>
+	* R/nanoduration.R: duration divided by duration returns double
+	* inst/tinytest/test_nanoduration.R: additional test for the above
+
 2024-05-24  Leonardo Silvestri  <[email protected]>
 
 	* inst/include/nanotime/utilities.hpp: Use interface function Rf_asS4

R/nanoduration.R

@@ -439,7 +439,7 @@ setMethod("*", c("ANY", "nanoduration"),
 ##' @rdname nanoduration
 setMethod("/", c("nanoduration", "nanoduration"),
           function(e1, e2) {
-              as.integer64(S3Part(e1, strictS3=TRUE) / S3Part(e2, strictS3=TRUE))
+              S3Part(e1, strictS3=TRUE) / S3Part(e2, strictS3=TRUE)
           })
 ##' @rdname nanoduration
 setMethod("/", c("nanoduration", "integer64"),

inst/tinytest/test_nanoduration.R

@@ -301,7 +301,10 @@ expect_error(1.5 / as.nanoduration("00:01:00"), "invalid operand types")
 expect_error(as.nanoduration("1:00:00") / "a", "invalid operand types")
 
 ##test_nanoduration_div_nanoduration <- function() {
-expect_identical(as.nanoduration(6) / as.nanoduration(2), as.integer64(3))
+expect_identical(as.nanoduration(6) / as.nanoduration(2), 3.0)
+
+##test_nanoduration_div_nanoduration <- function() {
+expect_identical(as.nanoduration(7) / as.nanoduration(2), 3.5)
 
 
 ## unary