tests/testthat/test_asDate.R

context("asDate")

test_that("", {
  expect_that(asDate(Sys.Date()), is_identical_to(Sys.Date()))
  expect_that(asDate("19850504"), is_equivalent_to(as.Date(NA)))
  expect_that(asDate("1985-05-04"), is_equivalent_to(as.Date("1985-05-04")))
})

Try the rccdates package in your browser

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

rccdates documentation built on May 2, 2019, 1:46 p.m.