Move integerish helper to utils

Author: t-kalinowski

AGENTS.md

@@ -36,6 +36,7 @@ EOF
 - When adding tests, prefer user-facing API tests (e.g. `expect_quick_identical()`); avoid asserting on generated Fortran/C translation strings.
 
 - While troubleshooting and iterating towards a solution, you can run targeted single-file tests; before committing/pushing, always run the full test suite and `rcmdcheck`.
+- Before finishing a task, always run the full test suite and `rcmdcheck`.
 
 - Prefer extending S7 classes with explicit properties over attaching arbitrary unchecked attributes.
 

R/aaa-utils.R

@@ -149,6 +149,7 @@ is_scalar_integer <- function(x) is.integer(x)   && !is.object(x) && length(x) =
 is_string         <- function(x) is.character(x) && length(x) == 1L && !is.na(x) # could also be 'glue' class.
 is_bool           <- function(x) is.logical(x)   && !is.object(x) && length(x) == 1L && !is.na(x)
 is_number         <- function(x) is.numeric(x)   && !is.object(x) && length(x) == 1L && !is.na(x)
+is_scalar_integerish <- function(x) is_number(x) && trunc(x) == x
 is_wholenumber    <- function(x) is.numeric(x)   && !is.object(x) && length(x) == 1L && !is.na(x) &&
   x >= 0L && (is.integer(x) || is.double(x) && trunc(x) == x)
 }

R/r2f-closures.R

@@ -705,10 +705,6 @@ compile_sapply_assignment <- function(
         to <- ee$to
         by <- ee$by
 
-        is_scalar_integerish <- function(x) {
-          is_number(x) && !is.na(x) && trunc(x) == x
-        }
-
         if (!is.null(from) && !is.null(to) && identical(from, to)) {
           return(1L)
         }