sandbox/github-issues.R

In 52North/sos4R: Client for OGC Sensor Observation Services

# https://github.com/52North/sos4R/issues/33 ----

mySOS <- SOS(url = "http://sos.irceline.be/sos")
procs <- unique(unlist(sosProcedures(mySOS)))
S = describeSensor(mySOS,procs[[1]])
S

# > FIXED in dev version

# https://github.com/52North/sos4R/issues/37 ----

testsos <- SOS("http://sensorweb.demo.52north.org/52n-sos-webapp/sos/pox", dcpFilter = list("POX" = "/pox"))
testsosoffering <- sosOfferings(testsos)[[1]]
obs <- getObservation(sos = testsos, offering = testsosoffering, observedProperty = sosObservedProperties(testsosoffering)[4], verbose = TRUE)
sosResult(obs)


# https://github.com/52North/sos4R/issues/53 ----

CEH <- SOS("http://192.171.139.63/observations/service",
           binding = "KVP",
           version = "2.0.0",
           #dataFieldConverters = myConverters
           useDCPs = FALSE
           )

myOff <- sosOfferings(CEH)[['/ECN/T04/RAIN/2/raw/']]
myTemporalFilter <- sosCreateEventTimeList(sosCreateTimePeriod(sos = CEH,
                                                               begin = as.POSIXct("1992-01-01"), #* 180),
                                                               end = as.POSIXct("1992-01-03")))
jan1992 <- getObservation(sos = CEH,
                             responseFormat = "http://www.opengis.net/om/2.0",
                             offering = myOff,
                             #verbose = TRUE,
                             observedProperty = list("http://vocabs.lter-europe.net/EnvThes/USLterCV_443"),
                             eventTime = myTemporalFilter
                             )

do.call(rbind, lapply(jan1992, function(obj) {
  return(data.frame(time = obj@phenomenonTime@timePosition@time, result = as.numeric(obj@result)))
})
)

# https://github.com/52North/sos4R/issues/49 ----

irceline <- SOS(url = "http://geo.irceline.be/sos/service",
                verboseOutput = TRUE,
                version = sos200_version)
irceline
# works!