#chargement des librairies
library(httr) #requete http
library(jsonlite) #ouverture des fichiers json

#coordonnées en 2154
## méthode de conversion amont ou alors argument de SIMFEN
x = 170141.1
y = 6791883.5

start = '2019-01-01' #date de début de simulation
end = '2020-01-01' #date de fin de simulation

url_wps = paste0("https://wps.geosas.fr/simfenV2/?service=WPS&version=1.0.0&request=Execute&identifier=waterFlowSimulation&datainputs=X=",x,";Y=",y,";Start=",start,";End=",end,";Project=archives_dreal;DeltaT=1440&RawDataOutput=SimulatedFlow")

requete = GET(url_wps)

if (requete$status_code == 200) {
  print("requete ok")
} else {
  print("erreur code :", r.status_code)
}

## [1] "requete ok"

##ouverture de la réponse
debit = fromJSON(rawToChar(requete$content))
colnames(debit) <- c('date','qm3s')
debit = as.data.frame(debit)
debit$date=as.Date(debit$date)
debit=debit[-1,]
print(head(debit))

##         date  qm3s
## 2 2019-01-02 6.672
## 3 2019-01-03 6.286
## 4 2019-01-04 5.965
## 5 2019-01-05 5.698
## 6 2019-01-06 5.453
## 7 2019-01-07 5.282

#visualisation
plot(debit$date,debit$qm3s,type='l')