fix(06-evolution): error knit

Refs #12

bookdown/06-evolution_indicateurs_hydrologiques.Rmd

@@ -3,6 +3,10 @@
 ```{r setup, include=FALSE}
 library(seinebasin2)
 cfg <- loadConfig()
+knitr::opts_chunk$set(
+  fig.width = 8,
+  fig.asp = 1
+)
 ```
 
 L'évolution est représentée sous la forme du rapport entre l'indicateur calculé sur la période future et celui calculé sur la période de référence.
@@ -122,7 +126,7 @@ loadIndicators <- function(rcp, scenario, indicator) {
                        "-",
                        substr(cfg$hydroclim$drias$periods[[period]][2], 1, 4),
                        ".tsv")
-        file <- getDataPath(
+        path <- getDataPath(
             cfg$Qnat$path, 
             "Drias2020/Qnat-v1", 
             rcp, 
@@ -130,10 +134,10 @@ loadIndicators <- function(rcp, scenario, indicator) {
             file,
             cfg = cfg
         )
-       df <- read.csv(file, sep = "\t")
-       m <- as.matrix(df[, -1])
-       rownames(m) <- df[, 1]
-       m
+        df <- read.csv(path, sep = "\t")
+        m <- as.matrix(df[, -1])
+        rownames(m) <- df[, 1]
+        m
     })
 }
 
@@ -152,7 +156,6 @@ Q_month5 <- loadAllIndicators("Q_monthly_5years")
 ```
 
 
-
 ### Indicateurs synthétiques
 
 Pour les étiages&nbsp;: VCN10, VCN30 et QMNA pour les périodes de retour 2 ans, 5 ans et 10 ans.
@@ -161,8 +164,6 @@ Pour les crues&nbsp;: QJXA pour les périodes de retour 2 ans, 10 ans, 20 ans.
 
 Pour les faibles/forts débits&nbsp;: les quantiles 95% et 10% de débits journaliers
 
-Exemples de calculs pour les débits simulés pour le scénario `r names(QsimDrias)[1]` des stations La Seine à Vernon et la Seine à Paris Austerlitz sur la période de référence 1976-2005&nbsp;:
-
 ```{r}
 Q_indicators <- loadAllIndicators("Q_indicators")
 ```