e-sensing / rwtss Goto Github PK

• Change version to 0.9.1. Related with #12

Whenever a time series request falls outside the bounding box of the coverage, the error message points to the wrong causes: A JSON error due to missing parameters.

Code to reproduce this issue
`
library(wtss)
ts.server <- WTSS("http://www.myserver.org/tws/wtss")

#---- SUCESS: time series retrieved ----
ats <- timeSeries(object = ts.server,
coverages = "mod13q1_512",
attributes = c("ndvi"),
latitude = -10.408,
longitude = -53.495,
start = "2000-02-18",
end = "2017-02-18")
str(ats)

#---- FAILURE: Time series falls outside the coverage's bounding box
#---- However, the error points to the wrong cause:
#---- Error in .parseJSON(.sendRequest(request)) :
#---- Invalid timeseries range: missing some values.
ats <-timeSeries(object = ts.server,
coverages = "mod13q1_512",
attributes = c("ndvi"),
latitude = 10.408,
longitude = 53.495,
start = "2000-02-18",
end = "2017-02-18")
`

Read from environmental variable BDC_ACCESS_TOKEN the acces_token to be sent with url request.

• add .drone.yml file

In line 48 is marked as donttest, it needs to be changed to dontrun.

The examples in the demo were not working because the e-sensing wtss service is unavailable.

Instead of passing one point at a time, it is interesting to provide a vector of points to simplify the query. For example:

ts <- Rwtss::time_series("my-wtss",
                         attributes = c("B04", "B08"), 
                         latitude   = c(-15.6, -15.7, -15.8), 
                         longitude  = c(-48.8, -48.9, -48.92), 
                         name       = "my-collection",
                         start_date = "2017-09-01",
                         end_date   = "2018-07-27",
                         token      = "")

Currently, DPI's drone is unavailable, so it will be migrated to the drone service's own cloud.