# NOT RUN {
showClass("SensorML")
# }
# NOT RUN {
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)
# valid time from SOS 2.0.0
mySOS2 <- SOS(url = "http://sensorweb.demo.52north.org/sensorwebtestbed/service/kvp",
binding = "KVP",
version = "2.0.0")
mySensor2 <- describeSensor(sos = mySOS2,
procedure = sosProcedures(mySOS2)[[1]],
outputFormat = 'text/xml; subtype="sensorML/1.0.1"')
sosTime(mySensor2)
plot(mySensor)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab