Report_Generator.R

# Run this script to generate all the country PDF reports and load them into the 
# read folder of the shinyTCMN app
##################################

### setwd() to handle images and other files -----------------
#setwd('/Users/mrpso/Documents/GitHub/reportGenerator360/')
### ----------------------------------------------------------

source('global_utils.R') # data and functions needed
source('helper_functions.R') # charts and table functions needed
input_reportID <- "Gender"
source(paste0("templates/",input_reportID,"_charts.R"))
# Create the data reports --------------------------------------
exclude <- c("Channel Islands","Virgin Islands (U.S.)","Northern Mariana Islands",
             "Marshall Islands","Greenland","Gibraltar","Cayman Islands","British Virgin Islands",
             "St. Martin (French part)","Sint Maarten (Dutch part)","French Polynesia")
processed <- c()
#for (couName in filter(countries, !(name %in% exclude))$name) {
for (couName in filter(countries, !(name %in% exclude))$name[154:206]) {  
#for (couName in c("Ethiopia", "Eritrea", "Sudan", "Burundi", "Malawi", "Kenya", "Uganda", "Rwanda", "Tanzania", "Somalia", "South Sudan")) {
#for (couName in c("Nigeria", "Senegal", "Cote d'Ivoire", "Congo, Dem. Rep.", "South Africa", "Mozambique", "Ghana")) {
#for (couName in c("Eritrea", "Sudan", "Malawi", "Somalia", "South Sudan")) {
#for (couName in c("Ethiopia","Belarus")) {
#for (couName in c("Ethiopia","Kenya","Rwanda","Uganda","Tanzania")) {
#for (couName in c("Morocco","South Africa","China","India","Spain","Bolivia")) {
#for (couName in c("Macao SAR, China","Kuwait","Korea, Rep.","Haiti","Hong Kong SAR, China",
#                  "Micronesia, Fed. Sts.","Eritrea","Cyprus","Bahamas, The","Brunei Darussalam","Bermuda",
#                  "Bahrain","Aruba","Angola","United Arab Emirates")) {
#for (couName in c("Ethiopia")){
#for (couName in c("United States","Oman","United Arab Emirates","West Bank and Gaza","Malta")) {
  ### Figure out the country peers ----------
  countryPeers <- c("TZA","KEN","UGA","RWA","ETH")
  countryCode <- .getCountryCode(couName)
  if (countryCode %in% countryPeers){
    countryPeers <- countryPeers[-which(countryPeers == countryCode)]
  } else {
    countryPeers <- get_suggestedPeers(couName)
  }
  ### --------------------------------------
  #
  ### Run the report -------------------------
  .reportGenerator(couName, input_reportID, countryPeers)
  #suppressWarnings(.reportGenerator(couName, input_reportID))
  # if (!(substr(c,1,1)=="(") & !(filter(countries, name==c)$iso3=="")){
  #   iso3 <- .getCountryCode(c)
  #   knit2pdf('PDF_LaTeX.Rnw', clean = TRUE,
  #            encoding = "UTF-8",
  #            output = paste0(input_reportID,"_",iso3,".tex"))
  #   # copy file to pdf directory
  #   file.copy(paste0(input_reportID,"_",iso3,".pdf"), paste0("templates/",input_reportID,"_final_pdf/"),overwrite=TRUE)
  #   file.remove(paste0(input_reportID,"_",iso3,".pdf"))
  #   file.remove(paste0(input_reportID,"_",iso3,".tex"))
  #   processed <- c(processed,c) 
  # }
}