tests/testthat/test_which.R

context("which")

test_that("which works", {
  x <- c(TRUE, FALSE, NA, TRUE, TRUE, FALSE)
  expect_that(as_rvec(which(x)), equals(which(x)))
})

Try the ldat package in your browser

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

ldat documentation built on March 26, 2020, 7:59 p.m.