Skip to content
Snippets Groups Projects
Commit 3d188820 authored by David Dorchies's avatar David Dorchies
Browse files

feat: working presentation

Refs #3
parent e5331df2
No related branches found
No related tags found
1 merge request!2Resolve "Training session for the Territorial Hydrology Workgroup"
......@@ -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
This diff is collapsed.
......@@ -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"))
......
No preview for this file type
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment