R/insert_missing_dates.R

In msxakk89/dat: Data Analyst Toolkit (dat): a library of tools for data analysts and scientists

#' Identify and insert missing dates between two dates
#' 
#' @param minDate A minimum date in character or Date format.
#' @param maxDate A maximum date in character or Date format.
#' @return A vector of dates in Date format between the two dates with single day being the most granular time difference.
#' @export

insert_missing_dates = function(minDate,maxDate){
  minDate = as.Date(minDate)
  maxDate = as.Date(maxDate)
  timeDiff = as.numeric(difftime(maxDate,minDate,unit = "days"))
  
  datesFull = minDate
  dayDiff = difftime("1980-01-02","1980-01-01") # single day difference
  for(i in 1:timeDiff){
    dayDiff_i = i*dayDiff
    addedDateDiff = minDate + dayDiff_i
    datesFull = c(datesFull,addedDateDiff)
  }
  
  return(datesFull)
}