R/format_comb.R

In arranhamlet/popvac_package: Generate population level vaccination data from a csv template.

#' Generates a formatted dataframe of vaccination campaigns from a csv
#' ready to be translated to population level vaccination coverage.
#' 
#' @param GADM1formated Cleaned and formatted GADM1 campaigns.
#' @param GADM2formated Cleaned and formatted GADM2 campaigns.
#' @examples
#' format_comb(GADM1formated,GADM2formated)
#' @export


format_comb<-function(GADM1formated,GADM2formated){
  
  if(is.null(GADM1formated)  && !is.null(GADM2formated)) vc.level<-GADM2formated
  
  if(!is.null(GADM1formated) &&  is.null(GADM2formated)) vc.level<-GADM1formated
  
  if(!is.null(GADM1formated) && !is.null(GADM2formated)) vc.level<-rbind(GADM1formated,GADM2formated)
  
  rownames(vc.level) <- NULL
  
  vc.level
  
}