Assertion about dates about assertr

[tonyfischetti]

Thanks for the kind words....

There's no built-in approach yet. If I add this functionality to assertr (and the only reason I wouldn't is if it makes more sense to put it in another package) I would do it like this...

let's say I got a file like this called dates.csv

item,the_date
a,2016-09-02
b,2016-09-03
c,2016-09-03
d,2016-09-04
e,2016-09-04
f,2016-09-28
g,2016-09-29
h,2016-09-28

And I want to make sure all the dates are between September 1st and 30th...

library(lubridate)   # for the ymd (year-month-day), %within%, and %--% interval builder functions

these <- readr::read_csv("./dates.csv")

within_dates <- function(start_date, end_date){
  interval <- lubridate::`%--%`(start_date, end_date)
  closure <- function(adate){
    return(lubridate::`%within%`(adate, interval))
  }
  return(closure)
}

these %>%
  assert(within_dates(mdy("09-01-16"), mdy("09-30-16")), the_date)

The within_dates function is a lot like how within_bounds is implemented.

You can also achieve this with an anonymous function:

these %>%
    assert(function(x){x %within% (mdy("09-01-16") %--% mdy("09-30-16"))}, the_date)

Do these help?

[TonyLadson]

Thank you, very helpful. I'm using these approaches already.

[tonyfischetti]

I'll put an example of this in the vignette!