From f52958283e9cd1a98c5b2ae7e5d0a78a94db659c Mon Sep 17 00:00:00 2001 From: Michael Chirico Date: Thu, 21 May 2026 07:03:15 -0700 Subject: [PATCH] Use S3 dispatch for integer64 methods --- inst/tests/tests.Rraw | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/inst/tests/tests.Rraw b/inst/tests/tests.Rraw index dc2420610..483638099 100644 --- a/inst/tests/tests.Rraw +++ b/inst/tests/tests.Rraw @@ -9443,7 +9443,7 @@ construct <- function(cols, vals, ops, x, y) { expr = lapply(seq_along(cols), function(i) { GT_or_LT = ops[i]==">" || ops[i]=="<" if (inherits(vals[[i]], "integer64")) { - if (is.na.integer64(vals[[i]])) if (GT_or_LT) quote(logical()) else as.call(list(quote(is.na.integer64), as.name(cols[[i]]))) + if (is.na(vals[[i]])) if (GT_or_LT) quote(logical()) else as.call(list(quote(is.na), as.name(cols[[i]]))) else as.call(list(as.name(ops[[i]]), as.name(cols[[i]]), as.integer(vals[[i]]))) # don't know how to construct a call with int64 -- vals[[i]] gets converted to NAN } else {