R/R_xlen_t.R

Defines functions R_xlen_t

R_xlen_t <- function(x) {
  if (max(x, na.rm = TRUE) <= 2147483647) {
    x <- as.integer(x)
  }
  x
}
HughParsonage/hutilscpp documentation built on March 1, 2025, 12:29 p.m.