In Thaliehln/timci: Data management and visualisation for the TIMCI project

facilities <- params$research_facilities

facilities <- facilities[, c("lvl2",
                             "facility_id",
                             "facility_name",
                             "facility_start",
                             "training_date",
                             "rollout_date",
                             "Latitude",
                             "Longitude")]

facilities <- facilities[, c("lvl2",
                             "facility_id",
                             "facility_name",
                             "type",
                             "training_date",
                             "rollout_date",
                             "Latitude",
                             "Longitude")]

facilities <- facilities[, c("lvl2",
                             "facility_id",
                             "facility_name",
                             "type",
                             "intervention",
                             "Latitude",
                             "Longitude")]

facilities <- facilities[, c("lvl2",
                             "facility_id",
                             "facility_name",
                             "type",
                             "intervention",
                             "include",
                             "Latitude",
                             "Longitude")]
all_facilities <- facilities
excluded_facilities <- facilities %>%
  dplyr::filter(include == 0) %>% 
  dplyr::select(-include)
facilities <- facilities %>%
  dplyr::filter(include == 1) %>% 
  dplyr::select(-include)

facilities <- facilities[!duplicated(facilities$facility_id), ]
facility_nb <- nrow(facilities)

facility_disp <- facilities %>%
    dplyr::arrange(lvl2) %>%
    dplyr::rename('District sanitaire' = 'lvl2',
                  'ID' = 'facility_id',
                  'Poste de santé' = 'facility_name',
                  "Fin pré-intervention" = 'training_date',
                  "Début post-intervention" = 'rollout_date')

facility_disp <- facilities %>%
    dplyr::arrange(lvl2, type) %>%
    dplyr::rename('County' = 'lvl2',
                  'ID' = 'facility_id',
                  'Facility' = 'facility_name',
                  'Type' = 'type',
                  "Baseline end" = 'training_date',
                  "Roll-out date" = 'rollout_date')

facility_disp <- facilities %>%
    dplyr::arrange(lvl2, type) %>%
    dplyr::rename('District' = 'lvl2',
                  'ID' = 'facility_id',
                  'Facility' = 'facility_name',
                  'Type' = 'type')

excluded_facility_disp <- excluded_facilities %>%
    dplyr::arrange(lvl2, type) %>%
    dplyr::rename('District' = 'lvl2',
                  'ID' = 'facility_id',
                  'Facility' = 'facility_name',
                  'Type' = 'type')

research_facilities <- facilities

Thaliehln/timci documentation built on April 8, 2024, 3:38 p.m.