# NOT RUN {
showClass("SosDescribeSensor")
# example for construction function
describeSensorRequest <- SosDescribeSensor(service = "SOS", version = "1.0.0",
procedure = "urn:procedure:42", outputFormat = "text/xml")
print(describeSensorRequest)
# encode the request in XML
sos <- SOS_Test()
encodeRequestXML(describeSensorRequest, sos)
toString(encodeRequestXML(describeSensorRequest, sos))
# }
# NOT RUN {
# request a sensor description
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!
)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab