timesMetric2Xml | R Documentation |
The timesMetric2Xml
function converts a MultipleTimeValueMetric
into an
XML structure appropriate for submitting to the MUSTANG Backend Storage System (BSS).
timesMetric2Xml(metric)
metric |
a |
A character string with BSS formatted XML is returned.
Jonathan Callahan jonathan@mazamascience.com
## Not run:
# Open a connection to IRIS DMC webservices
iris <- new("IrisClient")
# Get the waveform
starttime <- as.POSIXct("2012-01-24", tz="GMT")
endtime <- as.POSIXct("2012-01-25", tz="GMT")
st <- getDataselect(iris,"AK","PIN","","BHZ",starttime,endtime)
# Make sure we're working with a single snclq
unique_ids <- uniqueIds(st)
if (length(unique_ids) > 1) {
stop(paste("meanMetric: Stream has",unique_ids,"unique identifiers"))
}
snclq <- unique_ids[1]
# get the upDownTimes with a minimum signal length and minimum gap (secs)
upDownTimes <- getUpDownTimes(st, min_signal=30, min_gap=60)
# Create and return a MultipleTimeValue metric from the upDownTimes
m <- new("MultipleTimeValueMetric", snclq=snclq, starttime=starttime,
endtime=endtime, metricName="up_down_times", values=upDownTimes)
# Show the XML version of the metric
bssXml <- timesMetric2Xml(m)
cat(bssXml)
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.