# NOT RUN {
# A selection of four Auckland region stations down the East Coast to the
# upper Waitemata Harbour; Leigh 2 Ews, Warkworth Ews, Tiri Tiri Lighthouse
# and Henderson
my.stations = cf_station(17838, 1340, 1401, 12327)
my.stations
# Save these stations to a KML file
cf_save_kml(my.stations)
# Double click on the file to open with a default program (if available). All
# the markers are green, indicating all these stations are open.
# Where is the subscription-free Reefton Ews station?
cf_save_kml(cf_station(), file_name = "reeftonEWS")
# It's located in the sou'west quadrant of Reefton town, in the upper, western
# part of the South Island, NZ.
# Find all the open and closed Christchurch stations (using partial matching)
all.chch.st = cf_find_station("christ", status = "all", search = "region")
# How many stations in total?
nrow(all.chch.st)
# Save all the Christchurch stations
cf_save_kml(all.chch.st, file_name = "all_Chch_stations")
# }
Run the code above in your browser using DataLab