if (FALSE) {
  # Retrieve all the stations in the network
  x <- catalogue()
  # Define a bounding box:
  bbox <- list(lon_min=-3.82, lon_max=-3.63, lat_min=52.43, lat_max=52.52)
  # Get stations within the bounding box
  x <- catalogue(bbox)
  # Get stations based on minimum catchment area
  x <- catalogue(column_name = "catchment-area", column_value = 2000)
  # Get stations based on minimum number of recording years
  x <- catalogue(min_rec=30)
}
Run the code above in your browser using DataLab