feat: working presentation

Refs #3

DESCRIPTION

@@ -12,12 +12,11 @@ RoxygenNote: 7.2.3
 Imports:
     airGRiwrm,
     xaringan,
-    xaringanExtra
-Suggests:
+    xaringanExtra,
     sf,
     tidyverse,
     tmap
 Depends:
     R (>= 3.5.0)
 LazyData: true
-Remotes: git::https://gitlab.irstea.fr/in-wop/airGRiwrm.git
+Remotes: gadenbuie/xaringanExtra

data-raw/herault.R

@@ -33,7 +33,13 @@ BasinsObs <- readRDS(getDataPath("BasinsObs_safran_historical.RDS"))
 DatesR <- BasinsObs$DatesR
 Precip <- BasinsObs$prtot
 PotEvap  <- BasinsObs$etpOudin
-Qobs <- BasinsObs$Q
+
+Qobs <- lapply(names(BasinsObs$Q), function(id) {
+  area <- reseau_herault$tot_area[reseau_herault$id == id]
+  return(BasinsObs$Q[[id]] * 86400 * 1E3 / (area * 1E6))
+})
+Qobs <- as.data.frame(do.call(cbind, Qobs))
+names(Qobs) <- names(BasinsObs$Q)
 
 Qinf <- readr::read_csv2(getDataPath("Qinf_historical.csv"))
 Qinf <- Qinf |> filter(DatesR >= as.Date("2012-08-01") & DatesR <= as.Date("2023-07-31"))