Pad timeseries data in R

pad_data.r

# based on https://bocoup.com/weblog/padding-time-series-with-r

pad_data <- function(data, attr='date', value='value', by='hour') {

  sorted.data      <- data[order(data[[attr]]),]
  info.data.length <- length(sorted.data[[attr]])

  info.date.min <- sorted.data[[attr]][1]
  info.date.max <- sorted.data[[attr]][info.data.length]

  all.dates       <- seq(info.date.min, info.date.max, by=by)
  all.dates.frame <- data.frame(list(time=all.dates))

  merged.data <- merge(all.dates.frame, sorted.data, all=T)

  merged.data[[value]][which(is.na(merged.data[[value]]))] <- 0
  merged.data
}