update data

datapartnership · May 25, 2024 · 51c595a · 51c595a
1 parent c86874b
commit 51c595a
Show file tree

Hide file tree

Showing 11 changed files with 2,814 additions and 18 deletions.
diff --git a/notebooks/nighttime-lights/02_extract_data.R b/notebooks/nighttime-lights/02_extract_data.R
@@ -30,7 +30,7 @@ for(unit in c("adm0", "adm1", "adm2", "adm3", "city")){
   if(unit == "city") unit_sf <- city_buff_sf
 
   #### Loop through time period
-  for(time_period in c("annually", "monthly", "daily")){
+  for(time_period in c("annually", "monthly")){ # "daily"
 
     dir.create(file.path(ntl_dir, "aggregated_individual", unit, time_period))
 
@@ -92,7 +92,7 @@ for(unit in c("adm0", "adm1", "adm2", "adm3", "city")){
 
 # Append files -----------------------------------------------------------------
 for(unit in c("adm0", "adm1", "adm2", "adm3", "city")){
-  for(time_period in c("annually", "monthly", "daily")){
+  for(time_period in c("annually", "monthly", "daily")){ # "daily"
 
     ntl_df <- file.path(ntl_dir, "aggregated_individual", unit, time_period) %>%
       list.files(full.names = T) %>%

diff --git a/notebooks/nighttime-lights/_main.R b/notebooks/nighttime-lights/_main.R
@@ -29,3 +29,5 @@ library(purrr)
 library(stringr)
 library(exactextractr)
 library(blackmarbler)
+library(sparkline)
+library(sparklyr)
diff --git a/notebooks/nighttime-lights/ntl_analysis.html b/notebooks/nighttime-lights/ntl_analysis.html
diff --git a/notebooks/nighttime-lights/ntl_analysis.qmd b/notebooks/nighttime-lights/ntl_analysis.qmd
@@ -28,13 +28,16 @@ library(sparkline)
 library(htmltools) 
 library(htmlwidgets)
 
-data_dir <- file.path("/Users", 
-                      "rmarty", 
-                      "Library", 
-                      "CloudStorage", 
-                      "OneDrive-SharedLibraries-WBG", 
-                      "Development Data Partnership - Niger Economic Monitor", 
-                      "Data")
+# data_dir <- file.path("/Users", 
+#                       "rmarty", 
+#                       "Library", 
+#                       "CloudStorage", 
+#                       "OneDrive-SharedLibraries-WBG", 
+#                       "Development Data Partnership - Niger Economic Monitor", 
+#                       "Data")
+
+data_dir <- file.path("~/Dropbox/World Bank/Side Work/", 
+                      "Development Data Partnership - Niger Economic Monitor", "Data")
 
 boundaries_dir <- file.path(data_dir, "Boundaries")
 ntl_dir  <- file.path(data_dir, "Nighttime Lights")

diff --git a/notebooks/nighttime-lights/ntl_analysis_files/figure-html/unnamed-chunk-3-1.png b/notebooks/nighttime-lights/ntl_analysis_files/figure-html/unnamed-chunk-3-1.png
diff --git a/notebooks/nighttime-lights/ntl_analysis_files/figure-html/unnamed-chunk-4-1.png b/notebooks/nighttime-lights/ntl_analysis_files/figure-html/unnamed-chunk-4-1.png
diff --git a/notebooks/nighttime-lights/ntl_analysis_files/figure-html/unnamed-chunk-5-1.png b/notebooks/nighttime-lights/ntl_analysis_files/figure-html/unnamed-chunk-5-1.png
diff --git a/notebooks/nighttime-lights/ntl_analysis_files/figure-html/unnamed-chunk-8-1.png b/notebooks/nighttime-lights/ntl_analysis_files/figure-html/unnamed-chunk-8-1.png
diff --git a/notebooks/nighttime-lights/ntl_analysis_files/figure-html/unnamed-chunk-8-2.png b/notebooks/nighttime-lights/ntl_analysis_files/figure-html/unnamed-chunk-8-2.png