inst/api.R

In dougmet/holidaycalc: When is Your Longest Holiday

# Taken from trestletech/plumber

#* @get /today
todayDate <- function(){
  lubridate::today()
}


#* @get /now
nowTime <- function(){
  lubridate::now()
}

# Call the longestRun function
#
#* @get /longrun
#* @post /longrun
longrun <- function(start = Sys.Date(), end = Sys.Date() + 370, daysleave = 10) {
  daysleave <- as.integer(daysleave)
  holidaycalc::longestRun(startDate = start, endDate = end, daysLeave = daysleave)
}

#* @get /minleave
#* @post /minleave
minleave <- function(start = Sys.Date(), end = Sys.Date() + 370, window = 21) {
  window <- as.integer(window)
  holidaycalc::minDaysLeave(startDate = start, endDate = end, window = window)
}