# NOT RUN {
showClass("SensorML")
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"', # space is needed!
)
class(mySensor)
print(mySensor)
sosId(mySensor)
sosName(mySensor)
sosBoundedBy(mySensor)
sosCoordinates(mySensor)
sosGetCRS(mySensor)
# }
# NOT RUN {
plot(mySensor)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab