| getUnavailability | R Documentation | 
The getUnavailability method obtains metadata for channels that are not available from the EarthScope station web service
and returns it in a dataframe.
getUnavailability(obj, network, station, location, channel,
                  starttime, endtime, includerestricted,
                  latitude, longitude, minradius, maxradius)
| obj | 
 | 
| network | character string with the two letter seismic network code | 
| station | character string with the station code | 
| location | character string with the location code | 
| channel | character string with the three letter channel code | 
| starttime | POSIXct class specifying the starttime (GMT) | 
| endtime | POSIXct class specifying the endtime (GMT) | 
| includerestricted |  optional logical identifying whether to report on restricted data (default= | 
| latitude | optional latitude used when specifying a location and radius | 
| longitude | optional longitude used when specifying a location and radius | 
| minradius | optional minimum radius used when specifying a location and radius | 
| maxradius | optional maximum radius used when specifying a location and radius | 
The getUnavailability method compares the results of the getAvailability and getChannel
methods and returns those records found only in the output of getChannel.
Each of the arguments network, station, location or channel may contain
a valid code or a wildcard expression, e.g. "BH?" or "*". Empty strings are converted to "*".
Otherwise the ascii string that is used for
these values is simply inserted into the web service request URL.
For more details see the webservice documentation.
A dataframe with the following columns:
network, station, location, channel, latitude, longitude, elevation, depth, azimuth, dip, instrument, scale, scalefreq, scaleunits, samplerate, starttime, endtime
Jonathan Callahan jonathan@mazamascience.com
The EarthScope station webservice:
https://service.earthscope.org/fdsnws/station/1/
This implementation was inspired by the functionality in the obspy get_stations() method.
https://docs.obspy.org/packages/autogen/obspy.clients.fdsn.client.Client.get_stations.html
IrisClient-class, getAvailability, getChannel
# Open a connection to EarthScope webservices
iris <- new("IrisClient")
# Date of Nisqually quake
starttime <- as.POSIXct("2001-02-28",tz="GMT")
endtime <- starttime + 2*24*3600
# Use the getEvent web service to determine what events happened in this time period
result <- try(events <- getEvent(iris,starttime,endtime,6.0))
if (inherits(result,"try-error")) {
  message(geterrmessage())
} else {
  events
# biggest event is Nisqually
  eIndex <- which(events$magnitude == max(events$magnitude))
  e <- events[eIndex[1],]
# Find all BHZ channels that were NOT collecting data at the time of the quake 
# and within 5 degrees of the quake epicenter (or are otherwise unavailable from IRIS).
  result <- try(channels <- getUnavailability(iris,"*","*","*","BHZ",starttime,endtime,
                            lat=e$latitude,long=e$longitude,maxradius=5))
  if (inherits(result,"try-error")) {
    message(geterrmessage())
  } else {
    channels
  }
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.