knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.path = "figure/", fig.height = 1 )
devtools::install_github("nowosad/wolnedni")
library('wolnedni')
wielkanoc(2010) poniedzialek_wielkanocny(2012) zielone_swiatki(c(2016, 2010)) boze_cialo(2017)
data <- as.Date("2016-03-27") is_wielkanoc(data) is_poniedzialek_wielkanocny(data) is_zielone_swiatki(data) is_boze_cialo(data)
is_sobota(data) is_niedziela(data)
is_wolne(data)
is_wolne(data, nazwa = TRUE) is_wolne(data, dzientygodnia = TRUE)
data('dni_wolne')
dni_wolne2016 <- subset(dni_wolne, format(dni_wolne$data, "%Y") == 2016) knitr::kable(dni_wolne2016, row.names = FALSE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.