tests/testthat/test-specify_missing.R

context("specify_missing")

test_that("specify_missing", {
  expect_that(specify_missing(1:8), is_equivalent_to(1:8))
  expect_that(specify_missing(1:8, 5), is_equivalent_to(c(1:4, NA, 6:8)))
  expect_that(specify_missing(c(NA, "", "apa    ", "        ", "hej")), 
              is_equivalent_to(c(NA, NA, "apa    ", NA, "hej")))
})

Try the rccmisc package in your browser

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

rccmisc documentation built on May 2, 2019, 2:48 p.m.