if (FALSE) {
# Note that queries to the DPIRD API require you to have your own API key.
# Query WA only stations and return DPIRD's stations nearest to the
# Northam, WA station, "NO", returning stations with 50 km of this station
wa_stn <- find_nearby_stations(
station_code = "NO",
distance_km = 50,
api_key = "your_api_key",
which_api = "dpird"
)
# Query stations nearest DPIRD's Northam, WA station, "NO" and return both
# DPIRD and SILO/BOM stations within 50 km of this station.
wa_stn <- find_nearby_stations(
station_code = "NO",
distance_km = 50,
api_key = "your_api_key",
which_api = "all"
)
# Query Wagga Wagga BOM station finding stations within 200 km of it, note
# that it is not necessary to provide an `api_key` for SILO queries of
# nearby stations.
wagga_stn <- find_nearby_stations(
latitude = -35.1583,
longitude = 147.4575,
distance_km = 200,
which_api = "silo"
)
}
Run the code above in your browser using DataLab