vacation <- data.frame('description' = c('Vacances de Noël'),
start_date = as.POSIXct('2021-12-17 23:00:00'),
end_date = as.POSIXct('2022-01-02 23:00:00'))
is_vacation(as.Date('2022-01-01'), vacation)
Run the code above in your browser using DataLab