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 Oct. 11, 2023, 9:06 a.m.