@@ -34,7 +34,7 @@ read_vri <- function(dsn = NULL, layer = "VEG_R1_PLY_polygon", wkt_filter = NULL
34
34
)
35
35
36
36
if (length(wkt_filter ) > 0 ){
37
- vri_query <- vri_query | > bcdata :: filter(bcdata :: INTERSECTS(sf :: st_as_sfc(wkt_filter )))
37
+ vri_query <- vri_query | > bcdata :: filter(local( bcdata :: INTERSECTS(sf :: st_as_sfc(wkt_filter ) )))
38
38
}
39
39
40
40
vri <- bcdata :: collect(vri_query )
@@ -100,14 +100,14 @@ read_bem <- function(dsn, layer = "BEM", wkt_filter = NULL) {
100
100
dsn = dsn ,
101
101
layer = layer ,
102
102
quiet = TRUE ,
103
- wkt_filter = if (is.null(wkt_filter )) {
103
+ wkt_filter = if (is.null(wkt_filter )) {
104
104
character (0 )
105
105
} else {
106
- sf :: st_as_text(sf :: st_as_sfc(wkt_filter ))
106
+ sf :: st_as_text(sf :: st_as_sfc(wkt_filter , crs = sf :: st_crs( albers ) ))
107
107
}
108
108
)
109
109
if (length(wkt_filter ) > 0 ){
110
- bem <- sf :: st_intersection(bem ,wkt_filter )
110
+ bem <- sf :: st_intersection(bem , sf :: st_as_sfc( wkt_filter , crs = sf :: st_crs( albers )) )
111
111
}
112
112
# Restructure bem while waiting for real info
113
113
bem <- rename_geometry(bem , " Shape" )
@@ -141,7 +141,7 @@ read_wetlands <- function(dsn = NULL, layer = "FWA_WETLANDS_POLY", wkt_filter =
141
141
bcdata :: select(GEOMETRY )
142
142
143
143
if (length(wkt_filter ) > 0 ){
144
- wl_query <- wl_query | > bcdata :: filter(bcdata :: INTERSECTS(sf :: st_as_sfc(wkt_filter )))
144
+ wl_query <- wl_query | > bcdata :: filter(local( bcdata :: INTERSECTS(sf :: st_as_sfc(wkt_filter ) )))
145
145
}
146
146
wetlands <- bcdata :: collect(wl_query )
147
147
@@ -178,7 +178,7 @@ read_rivers <- function(dsn = NULL, layer = "FWA_RIVERS_POLY", wkt_filter = cha
178
178
bcdata :: select(GEOMETRY )
179
179
180
180
if (length(wkt_filter ) > 0 ){
181
- rivers_query <- rivers_query | > bcdata :: filter(bcdata :: INTERSECTS(sf :: st_as_sfc(wkt_filter )))
181
+ rivers_query <- rivers_query | > bcdata :: filter(local( bcdata :: INTERSECTS(sf :: st_as_sfc(wkt_filter ) )))
182
182
}
183
183
rivers <- bcdata :: collect(rivers_query )
184
184
@@ -214,7 +214,7 @@ read_lakes <- function(dsn = NULL, layer = "FWA_LAKES_POLY", wkt_filter = chara
214
214
bcdata :: select(GEOMETRY )
215
215
216
216
if (length(wkt_filter ) > 0 ){
217
- lakes_query <- lakes_query | > bcdata :: filter(bcdata :: INTERSECTS(sf :: st_as_sfc(wkt_filter )))
217
+ lakes_query <- lakes_query | > bcdata :: filter(local( bcdata :: INTERSECTS(sf :: st_as_sfc(wkt_filter ) )))
218
218
}
219
219
lakes <- bcdata :: collect(lakes_query )
220
220
@@ -252,7 +252,7 @@ read_glaciers <- function(dsn = NULL, layer = "BTM_PLU_V1", wkt_filter = charac
252
252
bcdata :: select(GEOMETRY )
253
253
254
254
if (length(wkt_filter ) > 0 ){
255
- glaciers_query <- glaciers_query | > bcdata :: filter(bcdata :: INTERSECTS(sf :: st_as_sfc(wkt_filter )))
255
+ glaciers_query <- glaciers_query | > bcdata :: filter(local( bcdata :: INTERSECTS(sf :: st_as_sfc(wkt_filter ) )))
256
256
}
257
257
glaciers <- bcdata :: collect(glaciers_query )
258
258
@@ -288,7 +288,7 @@ read_ccb <- function(dsn = NULL, layer = "CNS_CUT_BL_polygon", wkt_filter = cha
288
288
bcdata :: select(HARVEST_YEAR )
289
289
290
290
if (length(wkt_filter ) > 0 ){
291
- ccb_query <- ccb_query | > bcdata :: filter(bcdata :: INTERSECTS(sf :: st_as_sfc(wkt_filter )))
291
+ ccb_query <- ccb_query | > bcdata :: filter(local( bcdata :: INTERSECTS(sf :: st_as_sfc(wkt_filter ) )))
292
292
}
293
293
ccb <- bcdata :: collect(ccb_query )
294
294
@@ -362,7 +362,7 @@ read_fire <- function(dsn = NULL, layer = "WHSE_LAND_AND_NATURAL_RESOURCE.PROT_H
362
362
bcdata :: select(SHAPE )
363
363
364
364
if (length(wkt_filter ) > 0 ){
365
- wl_query <- wl_query | > bcdata :: filter(bcdata :: INTERSECTS(sf :: st_as_sfc(wkt_filter )))
365
+ wl_query <- wl_query | > bcdata :: filter(local( bcdata :: INTERSECTS(sf :: st_as_sfc(wkt_filter ) )))
366
366
}
367
367
fire <- bcdata :: collect(wl_query )
368
368
@@ -424,5 +424,3 @@ read_tsa <- function(tsa_name, Skeena_boundary=TRUE){
424
424
425
425
return (aoi )
426
426
}
427
-
428
-
0 commit comments