In Nowosad/wolnedni: Okreslanie ustawowo wolnych dni od pracy w Polsce

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "figure/",
  fig.height = 1
)

Dni wolne

Instalacja

devtools::install_github("nowosad/wolnedni")

Używanie

library('wolnedni')

Określanie daty świąt w kolejnych latach

wielkanoc(2010)
poniedzialek_wielkanocny(2012)
zielone_swiatki(c(2016, 2010))
boze_cialo(2017)

Sprawdzanie czy data jest świętem ruchomym

data <- as.Date("2016-03-27")

is_wielkanoc(data)
is_poniedzialek_wielkanocny(data)
is_zielone_swiatki(data)
is_boze_cialo(data)

Sprawdzenie czy data jest sobotą lub niedzielą

is_sobota(data)
is_niedziela(data)

Sprawdzenie czy data jest dniem wolnym od pracy

is_wolne(data)

Sprawdzenie nazwy dnia wolnego

is_wolne(data, nazwa = TRUE)
is_wolne(data, dzientygodnia = TRUE)

Zbiór danych zawierający dni wolne w latach 2001-2025

data('dni_wolne')

dni_wolne2016 <- subset(dni_wolne, format(dni_wolne$data, "%Y") == 2016)
knitr::kable(dni_wolne2016, row.names = FALSE)

Nowosad/wolnedni documentation built on May 7, 2019, 6:20 p.m.