#' konwertuje istniejące stałe czasowe z powrotem na daty
#' @param dane ramka danych ZDAU zwrócona przez funkcję \code{\link{przygotuj_zdau}}
#' @param data_badania data konca badanego okresu
#' @return data.frame
#' @export
#' @import dplyr
konwertuj_daty = function(dane, data_badania){
dane = dane %>%
collect() %>%
mutate_(
nokr = ~ data2okres(data_badania) - data_do,
mcstart = ~ okres2miesiac(data_od),
rokstart = ~ okres2rok(data_od),
mcdyp = ~ okres2miesiac(data_do),
rokdyp = ~ okres2rok(data_do),
data_od = ~ okres2data(data_od),
data_do = ~ okres2data(data_do)
)
return(dane)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.