[#106] added function populationExport

This function exports population data by agegroup and gender for each district.

sormas-stats-sitrep/sitrep-app/global.R

@@ -6,9 +6,9 @@ toDate = as.character(Sys.Date() + 1) # or toDate = as.character("yyyy-mm-dd"),
 
 
 # Defining connection to db
-DB_USER = "sormas_user"
-DB_PASS = "password"
-DB_HOST = "127.0.0.1"
+DB_USER = "postgres" #"sormas_user"
+DB_PASS = "HZIsormas" #"password"
+DB_HOST = "localhost" #"127.0.0.1"
 DB_PORT = "5432"
 DB_NAME = "sormas"
 ## end of configuratiion

sormas-stats-sitrep/sitrep-app/loading_data.R

@@ -12,7 +12,7 @@ sormas_db = DBI::dbConnect(RPostgres::Postgres(),
 caseData = caseExportLineList(sormas_db = sormas_db, fromDate = fromDate, toDate = toDate)
 
 # Import population data
-
+populationData = populationExport(sormas_db = sormas_db)
 
 # Import shape files
 

sormas-stats-sitrep/sitrep-app/loading_functions.R

@@ -5,7 +5,7 @@
 ## Functions to export data from sormas ----
 # base::source(file.path("./utils", "function_name.R"))
 base::source("utils/caseExportLineList.R")
-
+base::source("utils/populationExport.R")
 
 ## Functions for data analysis ----
 

sormas-stats-sitrep/sitrep-app/utils/populationExport.R

@@ -0,0 +1,33 @@
+populationExport <- function(sormas_db){
+  # This function outputs a table containing population data.
+  # It contains data on the population by agegroup and gender in each district.
+
+  # District table SQL query
+  queryDistrict <- paste0("SELECT DISTINCT id AS district_id,
+    name AS district_name
+    
+    FROM public.district
+    
+    WHERE archived = FALSE
+                          ")
+  districts <- DBI::dbGetQuery(sormas_db, queryDistrict)
+
+  # Populationdata table SQL query 
+  queryPopulation <- paste0("SELECT DISTINCT id AS population_id,
+                            district_id,
+                            region_id, 
+                            sex AS sex_population,
+                            agegroup AS agegroup_population,
+                            population
+                            
+                            FROM public.populationdata
+                            ")
+  population_data <- DBI::dbGetQuery(sormas_db, queryPopulation)
+
+  # Merging population data with district names
+  population_data <- population_data %>% 
+    dplyr::left_join(., districts, by = 'district_id' )
+
+  #return output table
+  return(population_data)
+}