R/fill.dates.R

In covid19br/now_fcts: Auxiliary functions for analyzing COVID-19 data from different sources

#' Fill dates
#'
#' @param data data
#' @param column column
#'
#' @export
#'
fill.dates <- function(data, column) {

  if(class(column) == "character"){cases = data[,column]}
  if(class(column) == "numeric"){cases = data[,column]}

  sequence = seq(min(data$onset), max(data$onset), by = 1)
  incidence = rep(0, length(sequence))

  for(i in 1:length(cases)){
    incidence[which(data$onset[i] == sequence)] = cases[i]
  }

  return(data.frame(dates = sequence, incidence = incidence))
}