R/urssaf.R

In SGMAP-AGD/opensignauxfaibles: Open Signaux Faibles

#' Convert urssaf periods to standard format
#'
#' Urssaf store dates in a very specific format.
#' This can be years + 62 for annual values,
#' years + quarter + 0 for quarterly values
#' years + quarter + number of the month in the quarter for monthly values.
#'
#' @param .data a table with a period
#' @param .variable the name of the variable with urssaf periods
#' @param format can bee yyqm or yyyyqm
#'
#' @return an new table with two more columns : periodicity and period
#' @export
#'
#' @examples
#'
#' \dontrun{
#' convert_urssaf_periods_(.variable = ~ yyyyqm, format = "yyyyqm")
#' }
#'

convert_urssaf_periods_ <- function(.data, .variable, format = "yyqm") {
  pattern_ = "([[:digit:]]{2,4})([[:digit:]]{1})([[:digit:]]{1})"
  year_ = stringr::str_replace(
    string = lazyeval::f_eval(~ uq(.variable), data = .data),
    pattern = pattern_,
    replacement = "\\1") %>%
    as.numeric()
  if (format == "yyqm") {
    year_ <- ifelse(year_ <= 20, year_ + 2000, year_ + 1900)
  }
  quarter_ <- stringr::str_replace(
    string = lazyeval::f_eval(~ uq(.variable), data = .data),
    pattern = pattern_,
    replacement = "\\2"
  )
  month_ <- stringr::str_replace(
    string = lazyeval::f_eval(~ uq(.variable), data = .data),
    pattern = pattern_,
    replacement = "\\3"
  )
  periodicity_ <- ifelse(
    stringr::str_detect(
      string = lazyeval::f_eval(~ uq(.variable), data = .data),
      pattern = "[[:digit:]]{2,4}62$") == TRUE,
    "yearly",
    ifelse(
      month_ == "0",
      "quarterly",
      "monthly"
    )
  )
  period_ <- ifelse(
    periodicity_ == "yearly",
    as.character(year_),
    ifelse(
      periodicity_ == "quarterly",
      paste0(year_, "-Q", quarter_),
      paste0(year_, "-",
             stringr::str_pad(
               string = (as.numeric(quarter_) - 1) * 3 + as.numeric(month_),
               side = "left",
               width = 2,
               pad = "0")
      )
    )
  )
  return(dplyr::bind_cols(.data, tibble::tibble(periodicity = periodicity_, period = period_)))
}


#' Convert URSSAF weird dates to normal dates
#'
#' @param weird_date a date in the URSSAF format
#'
#' @return a date
#' @export
#'
#' @examples
#'
#' convert_urssaf_date(weird_date = "1010115")
#'
convert_urssaf_date <- function(weird_date) {
  year <- weird_date %>%
    stringr::str_pad(string = .,
                     width = "7",
                     pad = "9",
                     side = "left") %>%
    substr(., 1, 3) %>%
    as.numeric() %>%
    `+`(1900) %>%
    as.character()
  month_day <- weird_date %>%
    stringr::str_pad(string = .,
                     width = "7",
                     pad = "9",
                     side = "left") %>%
    substr(., 4, 7)
  date <- lubridate::ymd(paste0(year, month_day))
  return(date)
}