File tree Expand file tree Collapse file tree 2 files changed +7
-4
lines changed Expand file tree Collapse file tree 2 files changed +7
-4
lines changed Original file line number Diff line number Diff line change @@ -74,6 +74,7 @@ library(sf)
74
74
library(terra )
75
75
library(ggplot2 )
76
76
library(tidyterra )
77
+ library(lubridate )
77
78
78
79
# ### Define NASA bearer token
79
80
bearer <- " BEARER-TOKEN-HERE"
@@ -146,18 +147,19 @@ r <- bm_raster(roi_sf = roi_sf,
146
147
bearer = bearer )
147
148
148
149
# ### Prep data
149
- r <- r | > terraLLmask (roi_sf )
150
+ r <- r | > terra :: mask (roi_sf )
150
151
151
152
# # Distribution is skewed, so log
152
153
r [] <- log(r [] + 1 )
153
154
154
155
# #### Map
155
- p <- ggplot() +
156
+ ggplot() +
156
157
geom_spatraster(data = r ) +
157
158
scale_fill_gradient2(low = " black" ,
158
159
mid = " yellow" ,
159
160
high = " red" ,
160
- midpoint = 4.5 ) +
161
+ midpoint = 4.5 ,
162
+ na.value = " transparent" ) +
161
163
labs(title = " Nighttime Lights: October 2021" ) +
162
164
coord_sf() +
163
165
theme_void() +
Original file line number Diff line number Diff line change @@ -57,8 +57,9 @@ df <- bm_extract(roi_sf = roi_sf,
57
57
date = 2018 : 2020 ,
58
58
bearer = bearer ,
59
59
h5_dir = " ~/Desktop/h5_tmp" ,
60
- interpol_na = T ,
60
+ output_location_type = " file " ,
61
61
file_dir = " ~/Desktop/ntl_tmp" ,
62
+ file_return_null = F ,
62
63
aggregation_fun = c(" mean" , " sum" ))
63
64
64
65
bm_r <- terra :: approximate(r ,
You can’t perform that action at this time.
0 commit comments