inst/tinytest/test_unique_fmatch.R

library(hutilscpp)

x <- c(.Machine$integer.max, -.Machine$integer.max, 0L, 0L)
expect_equal(unique_fmatch(x, nThread = 1L), x[1:3])
expect_equal(uniqueN_fmatch(x), 3L)

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.