# \donttest{
try(
bcdc_query_geodata("bc-environmental-monitoring-locations") %>%
filter(PERMIT_RELATIONSHIP == "DISCHARGE") %>%
show_query()
)
# }
# \donttest{
try(
air <- bcdc_query_geodata("bc-airports") %>%
collect()
)
try(
show_query(air)
)
# }
Run the code above in your browser using DataLab