R/cleansplit.R

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

#' Cleans input and divides into GADM1 and GADM2 entries
#'
#' @param csv.in Raw csv of vaccination campaigns.
#' @examples
#' separate.locations(vaccination_campaigns)
#' @keywords internal


cleansplit<-function(csv.in){
  
  vc.in<-csv.in
  
  #Remove blanks and invalid id numbers
  vc.in<-vc.in[!is.na(vc.in$vac.id), ]
  vc.in.clean<-vc.in[vc.in$vac.id > -1, ]
  
  #Make sure gadm is all caps
  vc.in.clean$location.encoding<-toupper(vc.in.clean$location.encoding)
  
  #Split into GADM1 and GADM2
  vc.GADM1<-vc.in.clean[vc.in.clean$location.encoding %in% "GADM1",]
  vc.GADM2<-vc.in.clean[vc.in.clean$location.encoding %in% "GADM2",]
  
  list("GADM1"=vc.GADM1,"GADM2"=vc.GADM2)
  
}