Skip to contents

[Experimental] This function obtains the information (metadata) shared by procedure/sensor through Sensor Observation Service (SOS).

Usage

get_sos_procedure_info(sosURL, procedure)

Arguments

sosURL

A character. The endpoint of the Sensor Observation Service (SOS) service.

procedure

A character. It is a procedure/sensor ID.

Value

The output of the function is a character containing attributes such as name of the sensor, id and their description. All the information are collected by requests to Sensor Observation Service (SOS).

Author

Alessandro Oggioni, phDoggioni.a@irea.cnr.it

Paolo Tagliolato, phD tagliolato.p@irea.cnr.it

Examples

FP <- get_sos_procedure_info(
  sosURL = "http://getit.lteritalia.it/observations/service",
  procedure = "http://www.get-it.it/sensors/getit.lteritalia.it/procedure/noOwnerDeclared/noModelDeclared/noSerialNumberDeclared/1286194C-A5DF-11DF-8ED7-1602DFD72097"
)
FP
#> [1] "Moldaenke FluoroProbe sensor"
#> attr(,"id")
#> [1] "http://www.get-it.it/sensors/getit.lteritalia.it/procedure/noOwnerDeclared/noModelDeclared/noSerialNumberDeclared/1286194C-A5DF-11DF-8ED7-1602DFD72097"
#> attr(,"description")
#> [1] "M1 deployment of 10m CTD (Model SBE 37-SMP) with serial communication, internal memory and pump. The SBE 37-SMP MicroCAT is a high-accuracy conductivity and temperature (pressure optional) recorder with internal battery and memory. Designed for moorings or other long duration, fixed-site deployments, the MicroCAT includes a standard serial interface and nonvolatile FLASH memory. Construction is of titanium and other non-corroding materials to ensure long life with minimum maintenance, and depth capability is 7000 meters (23,000 feet)."


# EURAC (https://www.eurac.edu/) 
# eurac_monalisa <- get_sos_procedure_info(
#   sosURL = "http://monalisasos.eurac.edu/sos/service",
#   procedure = "QuantumSensor_nemef2000"
# )
# eurac_monalisa

# obsProsAir <- get_sos_procedure_info(
#   sosURL = "http://getit.lteritalia.it/observations/service",
#   procedure = "http://www.get-it.it/sensors/getit.lteritalia.it/procedure/noOwnerDeclared/noModelDeclared/noSerialNumberDeclared/SI000049-1675AirTemp"
# )
# obsProsAir


# NIVA (https://niwa.co.nz)
# NIVA <- get_sos_procedure_info(
#   sosURL = "https://hydro-sos.niwa.co.nz/",
#   procedure = "Water_Quality_Site"
# )
# NIVA