R/make.R

Defines functions make_element

make_element <- function(x, .f, ...){

  date_test <- function(date){
    .f(date, ...) == x
  }

  out <- list(date_test = date_test)

  class(out) <- "schedule"

  out$n_terms <- 1

  out
}
jameslairdsmith/gs documentation built on July 19, 2023, 12:49 a.m.