inst/tinytest/test-do_duplicated_sorted.R

# test_that("do_duplicateds works", {
  x <- rep(c(-.Machine$integer.max, -1, 4, 2),
           c(3, 4, 5, 6))

  expect_equal(duplicated(x), duplicated(x))

  x <- as.integer(x)
  expect_equal(duplicated(x), duplicated(x))

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.