showClass("SosEventTime")
showClass("SosEventTimeLatest")
## Not run:
# # create SosEventTime for all times after the given time stamp
# tOps <- TM_After(time = GmlTimeInstant(
# timePosition = GmlTimePosition(as.POSIXct("2010-01-01 12:00"))))
# time1 <- SosEventTime(tOps)
#
# # encode it as XML and KVP
# encodeXML(time1)
# encodeKVP(time1)
#
# time2 <- SosEventTimeLatest()
# encodeXML(time2)
# ## End(Not run)
Run the code above in your browser using DataLab