R/oblicz_stale_czasowe.R

In zozlak/MLAKdane: Pakiet do zlaczania danych z rejestrow ZUS i uczelni

#' 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)
}