R/fixweek.R

In andschar/andmisc: Missceleaneous Functions Written by Andreas Scharmüller

#' Convenience function to turn week 1-9 into 01-09.
#' 
#' @description Convenience function to turn week 1-9 into 01-09. Also rounds
#' float values. This is important in as.Date() parsing.
#'
#' @param x a week number (as string or character).
#' 
#' @author Andreas Scharmueller, \email{andschar@@proton.me}
#' 
#' @export
#' 
#' @examples 
#' fixweek(9)
#' 
fixweek = function(x) {
  x = as.character(round(x))
  data.table::fifelse(nchar(x) == 1, paste0('0', x), x)
}