# NOT RUN {
# sensor location
mySOS <- SOS(url = "http://sensorweb.demo.52north.org/sensorwebtestbed/service/kvp",
binding = "KVP")
mySensor <- describeSensor(sos = mySOS,
procedure = sosProcedures(mySOS)[[1]],
outputFormat = 'text/xml; subtype="sensorML/1.0.1"')
as(mySensor, "Spatial")
# offering bounding box
as(sosOfferings(mySOS)[[1]], "Spatial")
# }
Run the code above in your browser using DataLab