R/DSTdate_to_date.R

In ktbaek/c19dk: Helper functions for covid19danmark.dk

#' Converts a date in typical Danmarks Statistik format to yyyy-mm-dd date format
#'
#' @param DSTdate character. Date of interest.
#'
#' @return a date in yyyy-mm-dd date format.
#'
#' @examples
#' 
#'
#' @export
DSTdate_to_date <- 
  function(DSTdate) {
  
  date <- paste0(substr(DSTdate, 1, 4), 
                 "-", substr(DSTdate, 6, 7), 
                 "-", substr(DSTdate, 9, 10))
  
  as.Date(date)
  
  }