Nothing
## ---- echo=FALSE, message=FALSE-----------------------------------------------
library(bizdays)
holidays <- calendars()[["Brazil/ANBIMA"]]$holidays
## ---- message=FALSE-----------------------------------------------------------
create.calendar(
name = "MyCalendar", holidays = holidays, weekdays = c("sunday", "saturday"),
adjust.from = adjust.next, adjust.to = adjust.previous
)
## -----------------------------------------------------------------------------
is.bizday("2016-07-12", "MyCalendar")
following("2016-09-07", "MyCalendar")
bizdays("2016-07-12", "2016-10-16", "MyCalendar")
## -----------------------------------------------------------------------------
cal <- create.calendar(
name = "MyCalendar", holidays = holidays, weekdays = c("sunday", "saturday"),
adjust.from = adjust.next, adjust.to = adjust.previous
)
is.bizday("2016-07-12", cal)
## ---- message=FALSE-----------------------------------------------------------
create.calendar(name = "WeekendsOnly", weekdays = c("sunday", "saturday"))
## -----------------------------------------------------------------------------
from_dates <- "2013-01-01"
to_dates <- seq(as.Date("2013-12-31"), as.Date("2020-12-31"), by = "years")
bizdays(from_dates, to_dates, "WeekendsOnly")
## -----------------------------------------------------------------------------
create.calendar(name = "EveryMonday", weekdays = "monday")
from_dates <- "2013-01-01"
to_dates <- seq(as.Date("2013-12-31"), as.Date("2020-12-31"), by = "years")
bizdays(from_dates, to_dates, "EveryMonday")
## -----------------------------------------------------------------------------
create.calendar(name = "Actual")
from_dates <- "2013-01-01"
to_dates <- seq(as.Date("2013-12-31"), as.Date("2020-12-31"), by = "years")
bizdays(from_dates, to_dates, "Actual")
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.