cleanup

worldbank · Dec 6, 2023 · 3196816 · 3196816
1 parent 2aaaec4
commit 3196816
Show file tree

Hide file tree

Showing 4 changed files with 166 additions and 58 deletions.
diff --git a/R/blackmarbler.R b/R/blackmarbler.R
@@ -138,7 +138,8 @@ file_to_raster <- function(f,
 
     if(length(quality_flag_rm) > 0){
       if(variable %in% c("DNB_BRDF-Corrected_NTL",
-                         "Gap_Filled_DNB_BRDF-Corrected_NTL")){
+                         "Gap_Filled_DNB_BRDF-Corrected_NTL",
+                         "Latest_High_Quality_Retrieval")){
         for(val in quality_flag_rm){ # out[qf %in% quality_flag_rm] doesn't work, so loop
           out[qf == val] <- NA
         }
@@ -352,7 +353,7 @@ download_raster <- function(file_name,
   headers <- c('Authorization' = paste('Bearer', bearer))
   download_path <- file.path(temp_dir, file_name)
 
-  if(quiet == FALSE) message(paste0("Downloading: ", file_name))
+  if(quiet == FALSE) message(paste0("Processing: ", file_name))
 
   response <- GET(url, add_headers(headers), write_disk(download_path, overwrite = TRUE))
 

diff --git a/_pkgdown.yml b/_pkgdown.yml
@@ -1,4 +1,4 @@
-url: https://worldbank.github.io/blackmarbler/
+url: ~
 template:
   bootstrap: 5
 
diff --git a/vignettes/assess-quality.Rmd b/vignettes/assess-quality.Rmd
@@ -290,7 +290,7 @@ ntl_tmp_gap_r <- ntl_tmp_gap_r |> mask(roi_sf)
 ntl_tmp_gap_df <- rasterToPoints(ntl_tmp_gap_r, spatial = TRUE) |> as.data.frame()
 names(ntl_tmp_gap_df) <- c("value", "x", "y")
 
-ntl_tmp_gap_df$value[ntl_tmp_gap_df$value == 255] <- NA
+#ntl_tmp_gap_df$value[ntl_tmp_gap_df$value == 255] <- NA
 
 ##### Map 
 ggplot() +

diff --git a/vignettes/assess-quality.html b/vignettes/assess-quality.html