Nothing
context('MMWRweekday')
days = c('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday')
dates = seq(as.Date('1900-01-01'), as.Date('2015-12-31'), by='day')
oldlocale <- Sys.getlocale("LC_TIME")
Sys.setlocale("LC_TIME", "C")
truth = factor(weekdays(dates), levels=days)
Sys.setlocale("LC_TIME", oldlocale)
test_that('MMWRweekday returns a factor vector', {
wday = MMWRweekday(dates)
expect_that(wday, is_a('factor'))
expect_that(levels(wday), equals(days))
expect_that(length(wday), equals(length(dates)))
})
test_that('MMWRweekday returns correct values', {
dates_chr = as.Date(dates)
expect_that(MMWRweekday(dates ), equals(truth))
expect_that(MMWRweekday(dates_chr), equals(truth))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.