Commit 4e64e3ab authored by Dorchies David's avatar Dorchies David
Browse files

refactor(cloud): change cloud URL

parent a4dd7140
Pipeline #31976 passed with stages
in 27 minutes and 39 seconds
......@@ -14,7 +14,7 @@ cfg <- loadConfig()
cfg$data$path
```
Pour travailler en local, il faut télécharger l'ensemble des données (https://owncloud.dorch.fr/index.php/s/pCPZvY4lk6xGC8m/download) et les stocker sur son poste de travail.
Pour travailler en local, il faut télécharger l'ensemble des données (https://nextcloud.inrae.fr/s/adinzGa3AmLEXnZ/download) et les stocker sur son poste de travail.
Il suffit ensuite de modifier la configuration par défaut en créant un fichier `config.yml` dans son dossier de travail R (Voir `?getwd`) avec les éléments suivants:
......@@ -23,6 +23,6 @@ default:
data:
cloud: false
path: C:/Chemin/vers/mon/dossier/de/donnees/local
```
```
##
##
......@@ -4,7 +4,7 @@
library(seinebasin2)
cfg <- loadConfig()
knitr::opts_chunk$set(
fig.width = 8,
fig.width = 8,
fig.asp = 1
)
```
......@@ -114,14 +114,14 @@ calcRatio <- function(Qsim, Qobs, FUN) {
plotRatio <- function(Qsim, Qobs, FUN, title) {
r <- calcRatio(Qsim, Qobs, FUN)
# Define scale centered around 1
decVal <- r[r < 1]
incVal <- r[!(r < 1)]
decQuant <- quantile(decVal, probs = c(0, 0.1, 0.4, 0.6, 0.9))
incQuant <- quantile(incVal, probs = c(0.1, 0.4, 0.6, 0.9, 1))
breaks <- c(decQuant, incQuant)
plot_seine_map(r, breaks, title)
}
```
......@@ -157,7 +157,7 @@ plotRatio(Qsim, Qobs, calcQJXA10, "R-QJXA10")
Nous calculons ici l'ensemble des indicateurs hydrologiques utilisés dans les fiches Explore 2070:
```{r, eval=cfg$data$write_results}
indicators <- c("QA",
indicators <- c("QA",
"VCN10_2", "VCN30_2", "QMNA2",
"VCN10_5", "VCN30_5", "QMNA5",
"VCN10_10", "VCN30_10", "QMNA10",
......@@ -168,7 +168,7 @@ calcQcaract <- function(indicator, Qobs, Qsim) {
QcObs <- FUN(Qobs)
QcSim <- FUN(Qsim)
m <- cbind(QcObs, QcSim, QcSim / QcObs)
colnames(m) <- c(paste(indicator, c("obs", "sim"), sep = "."),
colnames(m) <- c(paste(indicator, c("obs", "sim"), sep = "."),
paste0("R-", indicator))
return(m)
}
......@@ -179,12 +179,12 @@ Qsim_m3s <- convertUnitQ(Qsim, areas, from = "mm", to = "m3/s")
l <- lapply(indicators, calcQcaract, Qobs = Qobs_m3s, Qsim = Qsim_m3s)
mQc <- do.call(cbind, l)
dfQc <- cbind(data.frame(Id = rownames(mQc)), mQc)
write.table(dfQc,
file = getDataPath(cfg$calibration$path, "Q_indicators.tsv"),
sep = "\t",
write.table(dfQc,
file = getDataPath(cfg$calibration$path, "Q_indicators.tsv"),
sep = "\t",
quote = FALSE,
row.names = FALSE)
```
Ces indicateurs sont téléchargeables à l'adresse&nbsp;:
https://owncloud.dorch.fr/index.php/s/pCPZvY4lk6xGC8m/download?path=%2F02-calibration&files=Q_indicators.tsv
https://nextcloud.inrae.fr/s/adinzGa3AmLEXnZ/download?path=%2F02-calibration&files=Q_indicators.tsv
......@@ -33,13 +33,13 @@ plot(OutputsModel[[station]], Qobs = BasinsObs$Q[IndPeriod_Run, station], which
Les débits en m<sup>3</sup>/s sont enregistrés pour archivage avec la fonction suivante :
```{r, eval=!cfg$data$cloud}
saveFlowDB(path = getDataPath(cfg$Qnat$path, "Qnat-v1", cfg = cfg),
InputsModel = InputsModel,
OutputsModel = OutputsModel,
saveFlowDB(path = getDataPath(cfg$Qnat$path, "Qnat-v1", cfg = cfg),
InputsModel = InputsModel,
OutputsModel = OutputsModel,
cfg = cfg)
```
Les fichiers au format [Tab-separated values (TSV)](https://fr.wikipedia.org/wiki/Tabulation-separated_values) sont téléchargeables à l'adresse : https://owncloud.dorch.fr/index.php/s/pCPZvY4lk6xGC8m?path=%2F03-naturalised_flows%2FQnat-v1
Les fichiers au format [Tab-separated values (TSV)](https://fr.wikipedia.org/wiki/Tabulation-separated_values) sont téléchargeables à l'adresse : https://nextcloud.inrae.fr/s/adinzGa3AmLEXnZ?path=%2F03-naturalised_flows%2FQnat-v1
## Comparaison des données simulées avec d'autres bases de données
......@@ -80,7 +80,7 @@ l <- lapply(names(lVCN10), function(source) {
df <- tibble::add_column(df, source = source, .after = 1)
return(df)
})
dfVCN10 <- do.call(rbind, l)
dfVCN10 <- do.call(rbind, l)
dfVCN10 <- tidyr::gather(dfVCN10, key = "CdSiteHydro", value = "Q", -c("DatesR", "source"))
dfVCN10 <- dfVCN10[dfVCN10$DatesR >= lubridate::ymd("1959-01-01"), ]
```
......@@ -93,7 +93,7 @@ plotVCN <- function(CdSiteHydro, df) {
df <- df[df$CdSiteHydro == CdSiteHydro, ]
ggplot(df, aes(x = DatesR, y = Q)) +
geom_point(aes(col = source), size = 3) +
ggtitle("VCN10 annuel des débits naturalisés",
ggtitle("VCN10 annuel des débits naturalisés",
paste0(hydratec$stations$nom[hydratec$stations$CdSiteHydro == CdSiteHydro],
" (", CdSiteHydro, ")")) +
xlab("Année") + ylab(bquote('Débit naturalisé'~(m^3/s))) +
......@@ -110,8 +110,8 @@ apply(hydratec$stations, 1, function(station) {
p <- plotVCN(CdSiteHydro, dfVCN10)
path <- getDataPath(cfg$Qnat$path, "Analyses/Qnat-v1", cfg = cfg)
filename <- paste0(
paste("VCN10",
CdSiteHydro,
paste("VCN10",
CdSiteHydro,
iconv(gsub(" |:|\\.|'", "_", station["nom"]), from = "UTF-8", to = "ASCII//TRANSLIT"),
sep = "_"),
".png" )
......@@ -119,6 +119,6 @@ apply(hydratec$stations, 1, function(station) {
})
```
Les graphiques sont téléchargeables à l'adresse&nbsp;: https://owncloud.dorch.fr/index.php/s/pCPZvY4lk6xGC8m?path=%2F03-naturalised_flows%2FAnalyses%2FQnat-v1
Les graphiques sont téléchargeables à l'adresse&nbsp;: https://nextcloud.inrae.fr/s/adinzGa3AmLEXnZ?path=%2F03-naturalised_flows%2FAnalyses%2FQnat-v1
......@@ -16,7 +16,7 @@ LoadRunSave <- function(rcp, scenario) {
message("Processing ", rcp, " scenario ", scenario, "...")
file <- paste0(paste("BasinObs", rcp, scenario, sep = "_"), ".RDS")
BasinsObs <- loadBasinsObs(file, cfg = cfg)
InputsModel <- CreateInputsModel(BasinsObs)
InputsModel <- suppressMessages(CreateInputsModel(BasinsObs))
OutputsModel <- RunModel(BasinsObs, "calibration_with_reservoirs.txt", InputsModel = InputsModel)
path <- getDataPath(cfg$Qnat$path, "Drias2020/Qnat-v1", rcp, scenario, cfg = cfg)
saveFlowDB(path = path,
......@@ -41,7 +41,7 @@ mapply(LoadRunSave, rcp = rcps, scenario = scenarios)
Les données de débits naturels simulés avec les forçages climatiques du DRIAS 2020 créées par le script ci-dessus sont téléchargeables à l'adresse :
https://owncloud.dorch.fr/index.php/s/pCPZvY4lk6xGC8m?path=%2F03-naturalised_flows%2FDrias2020%2FQnat-v1
https://nextcloud.inrae.fr/s/adinzGa3AmLEXnZ?path=%2F03-naturalised_flows%2FDrias2020%2FQnat-v1
## Comparaison des débits naturels sous forçage climatique avec les données historiques
......@@ -111,7 +111,7 @@ plotVCN <- function(CdSiteHydro, df) {
geom_point(aes(color = source, shape = source, size = source)) +
scale_shape_manual(values=c(16, 16, rep(1,length(scenarios)))) +
scale_size_manual(values=c(1, 1, rep(0.5,length(scenarios)))) +
geom_ma(aes(colour = source), n = 5, size = 1, linetype = "solid") +
geom_ma(aes(colour = source), n = 5, size = 1, linetype = "solid") +
ggtitle("VCN10 annuel et moyenne mobile sur 5 ans des débits naturels",
paste0(hydratec$stations$nom[hydratec$stations$CdSiteHydro == CdSiteHydro],
" (", CdSiteHydro, ")")) +
......@@ -134,7 +134,7 @@ Enregistrement des graphiques pour toutes les stations sur le cloud&nbsp;:
apply(hydratec$stations, 1, function(station) {
CdSiteHydro <- station["CdSiteHydro"]
lapply(cfg$hydroclim$drias$rcp[-1], function(rcp) {
p <- plotVCN(CdSiteHydro,
p <- plotVCN(CdSiteHydro,
dfVCN10[grep(paste0("Hydratec|Inrae|", gsub("\\.", "\\\\.", rcp)), dfVCN10$source), ])
path <- getDataPath(cfg$Qnat$path, "Analyses/Drias2020/Qnat-v1", rcp)
filename <- paste0(
......@@ -148,5 +148,5 @@ apply(hydratec$stations, 1, function(station) {
})
```
Les graphiques sont téléchargeables à l'adresse&nbsp;: https://owncloud.dorch.fr/index.php/s/pCPZvY4lk6xGC8m?path=%2F03-naturalised_flows%2FAnalyses%2FDrias2020%2FQnat-v1
Les graphiques sont téléchargeables à l'adresse&nbsp;: https://nextcloud.inrae.fr/s/adinzGa3AmLEXnZ?path=%2F03-naturalised_flows%2FAnalyses%2FDrias2020%2FQnat-v1
......@@ -84,7 +84,7 @@ Pour le climat&nbsp;:
Pour les débits&nbsp;:
- Débit moyen
- Débit moyen de période de retour 5 ans
- Débit moyen sec de période de retour 5 ans
```{r}
monthlyMean <- function(df) {
......
default:
data:
cloud: true
path: https://owncloud.dorch.fr/index.php/s/pCPZvY4lk6xGC8m/download?path=
path: https://nextcloud.inrae.fr/s/adinzGa3AmLEXnZ/download?path=
write_results: null
hydroclim:
path: 01-hydroclimatic
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment