#' 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
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.