context("dates")
require("bindrcpp")
require("dplyr")
test_that("get_yyyymmdd", {
expect <- as.Date("2017-03-01")
actual <- get_yyyymmdd(2017, 3, 1)
expect_identical(actual, expect)
actual <- get_yyyymmdd(2017, 3)
expect_identical(actual, expect)
actual <- get_yyyymmdd(2017, 3, as_date = FALSE)
expect_identical(actual, as.character(actual))
expect_warning(get_yyyymmdd(2017, 3, default_day = FALSE))
# With data.frame
df <- dplyr::data_frame(yyyy = 2000, mm = seq(1, 12, 1))
df <- dplyr::mutate(df, yyyy_mm_dd = get_yyyymmdd(yyyy, mm))
expect_is(df, "data.frame")
})
test_that("get_yyyymm", {
expect <- "Mar 2017"
actual <- get_yyyymm(2017, 3)
expect_identical(actual, expect)
actual <- get_yyyymm(2017, 3, upper = TRUE)
expect_identical(actual, toupper(expect))
expect <- "March 2017"
actual <- get_yyyymm(2017, 3, format = "%B %Y")
expect_identical(actual, expect)
actual <- get_yyyymm(2017, 3, format = "%B %Y", upper = TRUE)
expect_identical(actual, toupper(expect))
})
test_that("get_month_lastday", {
expect <- 31
actual <- get_month_lastday(2017, 3)
expect_identical(actual, expect)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.