datasourceinfo <- DBMSDataSourceInfo(username="postgres", password="postgres", dbname="db_argos")
datasetinfo <- DataSetInfo(spatialColumn="obs_loc", timeColumn="obs_date",
dataColumn="temper", objectIdColumn="plataform", trajIdColumn="argos_id")
adapter <- setDataSourceInfo(Adapter(), datasourceinfo)
translator <- Translator(adapter = adapter, dataSetInfo = datasetinfo)
```
## functions:
- TRAJECTORY:
track <- getTrajectory(translator, "argo_profiles_geom", 1901204, 45737)
tracks <- getTrajectories(translator, "argo_profiles_geom", 1901204)
tracksCollection <- getTrackCollection(translator, layer="argo_profiles_geom")
```
COVERAGE:
TIME SERIES:
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.