inst/tinytest/test_which_raw.R

ans <- c(TRUE, FALSE, TRUE)
expect_equal(hutilscpp:::which_raw(as.raw(ans)), which(ans))


len <- if (hutilscpp:::is64bit()) 2^31 else 1
ans <- c(raw(len), as.raw(1))
expect_equal(hutilscpp:::which_raw(ans), len + 1)

Try the hutilscpp package in your browser

Any scripts or data that you put into this service are public.

hutilscpp documentation built on April 4, 2025, 12:42 a.m.