nearest_station(142.9313, 43.70417)
pick_neighbor_stations(140.10, 36.08, 300000)
d <-
pick_neighbor_stations(140.10, 36.08, 30, "km")
pick_neighbor_stations(geometry = sf::st_point(c(140.1833, 36.23333)),
distance = 100)
pick_neighbor_tide_stations(longitude = 133.4375, latitude = 34.45833,
year = 2020,
distance = 100, .unit = "km")
Run the code above in your browser using DataLab