tests/testthat/test_format_data.R

test_that("format data", {
  result <- format_data(Sys.Date())
  expect_equal(format(Sys.Date(), "%m/%Y"), result)
})

Try the ipeaData package in your browser

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

ipeaData documentation built on June 5, 2018, 1:03 a.m.