From 0ffd76d79a3c6e9ea18c2898fa7734aaf5611f99 Mon Sep 17 00:00:00 2001 From: Michael Chirico Date: Thu, 19 Mar 2026 07:02:49 +0000 Subject: [PATCH 1/2] keep.names= for double input too --- R/integer64.R | 3 ++- tests/testthat/test-integer64.R | 3 +++ 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/R/integer64.R b/R/integer64.R index 70a7887..8537ab5 100644 --- a/R/integer64.R +++ b/R/integer64.R @@ -563,9 +563,10 @@ as.integer64.integer64 = function(x, ..., keep.names=FALSE) { #' @rdname as.integer64.character #' @export -as.integer64.double = function(x, ...) { +as.integer64.double = function(x, ..., keep.names=FALSE) { ret = .Call(C_as_integer64_double, x, double(length(x))) oldClass(ret) = "integer64" + if (isTRUE(keep.names)) names(ret) = names(x) ret } diff --git a/tests/testthat/test-integer64.R b/tests/testthat/test-integer64.R index 458c8c6..bc36015 100644 --- a/tests/testthat/test-integer64.R +++ b/tests/testthat/test-integer64.R @@ -1569,4 +1569,7 @@ test_that("back-compatible keep.names=TRUE is supported for limited input classe x = as.integer64(1L) names(x) = "a" expect_named(as.integer64(x, keep.names=TRUE), "a") + + y = c(a = 1.0) + expect_named(as.integer64(y, keep.names=TRUE), "a") }) From 2c183165e63f8f9e4c0decd7e4b2dac78a75487a Mon Sep 17 00:00:00 2001 From: Michael Chirico Date: Thu, 19 Mar 2026 07:04:36 +0000 Subject: [PATCH 2/2] Rd cascade --- man/as.integer64.character.Rd | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/man/as.integer64.character.Rd b/man/as.integer64.character.Rd index 988385e..5190479 100644 --- a/man/as.integer64.character.Rd +++ b/man/as.integer64.character.Rd @@ -29,7 +29,7 @@ as.integer64(x, ...) \method{as.integer64}{integer64}(x, ..., keep.names = FALSE) -\method{as.integer64}{double}(x, ...) +\method{as.integer64}{double}(x, ..., keep.names = FALSE) \method{as.integer64}{complex}(x, ...)