region_dir <- data.frame(read.csv("region_directories.csv", header=TRUE))
head(region_dir, 3)         region           dir
1 Acholi Region acholi_region
2 Ankole Region ankole_region
3 Bugisu Region bugisu_regionThis reads in the names of 15 Regions and their directory names:
         region           dir
1 Acholi Region acholi_region
2 Ankole Region ankole_region
3 Bugisu Region bugisu_regionThis reads in the names of 136 Districts and their directory names:
      district_name               dir
1     Abim District     abim_district
2 Adjumani District adjumani_district
3    Agago District    agago_districtThis reads in the names of 10 Cities and their directory names: