Skip to content

Commit a4e1afb

Browse files
mrustlmrustl
committed
Minor plotting label improvements
n_overflow works now with new calculation engine for 3 case studies (Eisenstadt, Wien, Bad Aussee)
1 parent 04a2feb commit a4e1afb

3 files changed

Lines changed: 33 additions & 18 deletions

File tree

‎vignettes/workflow_badaussee.Rmd‎

Lines changed: 11 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@ knitr::opts_chunk$set(
1616
# is_ci <- tolower(Sys.getenv("CI")) %in% c("true", "1", "yes")
1717
#
1818
# is_ghactions <- is_ghactions || is_ci
19-
is_ghactions <- FALSE
19+
is_ghactions <- TRUE
2020
```
2121

2222
### Define Paths and Scenarios
@@ -379,8 +379,9 @@ htmlwidgets::saveWidget(DT::datatable(simulation_results_optimisation,
379379
autoWidth = TRUE)),
380380
file = sprintf("simulation_results_optimisation_%s.html",
381381
paths$modelname),
382-
title = "RAINDROP - Solution Space")
383-
382+
title = sprintf("RAINDROP - '%s': Solution Space",
383+
paths$modelname)
384+
)
384385
### Plot results
385386
386387
@@ -418,7 +419,8 @@ htmlwidgets::saveWidget(
418419
file = sprintf("simulation_results_optimisation_%s_main-effects.html",
419420
paths$modelname),
420421
selfcontained = TRUE,
421-
title = "RAINDROP - Main Effects"
422+
title = sprintf("RAINDROP - '%s': Main Effects",
423+
paths$modelname)
422424
)
423425
424426
@@ -451,7 +453,9 @@ for (y in c("mulde_height", "filter_hydraulicconductivity", "storage_height")) {
451453
paths$modelname,
452454
y),
453455
selfcontained = TRUE,
454-
title = sprintf("Design Space: mulde_area vs. %s", y)
456+
title = sprintf("'%s' - Design Space: mulde_area vs. %s",
457+
paths$modelname,
458+
y)
455459
)
456460
457461
# statisch ins PDF (WICHTIG!)
@@ -478,7 +482,8 @@ p <- kwb.raindrop::plot_wb_tradeoff_overflows(
478482
file = sprintf("simulation_results_optimisation_%s_water-balance.html",
479483
paths$modelname),
480484
selfcontained = TRUE,
481-
title = "Water balance vs overflows"
485+
title = sprintf("'%s' - Water balance vs overflows",
486+
paths$modelname)
482487
)
483488
484489
# statisch ins PDF (WICHTIG!)

‎vignettes/workflow_eisenstadt-2005.Rmd‎

Lines changed: 11 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@
22
title: "Workflow Eisenstadt 2005 (neuer Rechenkern 2026-02-24)"
33
output: rmarkdown::html_vignette
44
vignette: >
5-
%\VignetteIndexEntry{Workflow Eisenstadt 2005 (neuer Rechenkern 2026-01-22)}
5+
%\VignetteIndexEntry{Workflow Eisenstadt 2005 (neuer Rechenkern 2026-02-24)}
66
%\VignetteEngine{knitr::rmarkdown}
77
%\VignetteEncoding{UTF-8}
88
---
@@ -287,8 +287,9 @@ htmlwidgets::saveWidget(DT::datatable(simulation_results_optimisation,
287287
autoWidth = TRUE)),
288288
file = sprintf("simulation_results_optimisation_%s.html",
289289
paths$modelname),
290-
title = "RAINDROP - Solution Space")
291-
290+
title = sprintf("RAINDROP - '%s': Solution Space",
291+
paths$modelname)
292+
)
292293
### Plot results
293294
294295
@@ -326,7 +327,8 @@ htmlwidgets::saveWidget(
326327
file = sprintf("simulation_results_optimisation_%s_main-effects.html",
327328
paths$modelname),
328329
selfcontained = TRUE,
329-
title = "RAINDROP - Main Effects"
330+
title = sprintf("RAINDROP - '%s': Main Effects",
331+
paths$modelname)
330332
)
331333
332334
@@ -359,7 +361,9 @@ for (y in c("mulde_height", "filter_hydraulicconductivity", "storage_height")) {
359361
paths$modelname,
360362
y),
361363
selfcontained = TRUE,
362-
title = sprintf("Design Space: mulde_area vs. %s", y)
364+
title = sprintf("'%s' - Design Space: mulde_area vs. %s",
365+
paths$modelname,
366+
y)
363367
)
364368
365369
# statisch ins PDF (WICHTIG!)
@@ -386,7 +390,8 @@ p <- kwb.raindrop::plot_wb_tradeoff_overflows(
386390
file = sprintf("simulation_results_optimisation_%s_water-balance.html",
387391
paths$modelname),
388392
selfcontained = TRUE,
389-
title = "Water balance vs overflows"
393+
title = sprintf("'%s' - Water balance vs overflows",
394+
paths$modelname)
390395
)
391396
392397
# statisch ins PDF (WICHTIG!)

‎vignettes/workflow_wien.Rmd‎

Lines changed: 11 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@ knitr::opts_chunk$set(
1616
# is_ci <- tolower(Sys.getenv("CI")) %in% c("true", "1", "yes")
1717
#
1818
# is_ghactions <- is_ghactions || is_ci
19-
is_ghactions <- FALSE
19+
is_ghactions <- TRUE
2020
```
2121

2222
### Define Paths and Scenarios
@@ -379,8 +379,9 @@ htmlwidgets::saveWidget(DT::datatable(simulation_results_optimisation,
379379
autoWidth = TRUE)),
380380
file = sprintf("simulation_results_optimisation_%s.html",
381381
paths$modelname),
382-
title = "RAINDROP - Solution Space")
383-
382+
title = sprintf("RAINDROP - '%s': Solution Space",
383+
paths$modelname)
384+
)
384385
### Plot results
385386
386387
@@ -418,7 +419,8 @@ htmlwidgets::saveWidget(
418419
file = sprintf("simulation_results_optimisation_%s_main-effects.html",
419420
paths$modelname),
420421
selfcontained = TRUE,
421-
title = "RAINDROP - Main Effects"
422+
title = sprintf("RAINDROP - '%s': Main Effects",
423+
paths$modelname)
422424
)
423425
424426
@@ -451,7 +453,9 @@ for (y in c("mulde_height", "filter_hydraulicconductivity", "storage_height")) {
451453
paths$modelname,
452454
y),
453455
selfcontained = TRUE,
454-
title = sprintf("Design Space: mulde_area vs. %s", y)
456+
title = sprintf("'%s' - Design Space: mulde_area vs. %s",
457+
paths$modelname,
458+
y)
455459
)
456460
457461
# statisch ins PDF (WICHTIG!)
@@ -478,7 +482,8 @@ p <- kwb.raindrop::plot_wb_tradeoff_overflows(
478482
file = sprintf("simulation_results_optimisation_%s_water-balance.html",
479483
paths$modelname),
480484
selfcontained = TRUE,
481-
title = "Water balance vs overflows"
485+
title = sprintf("'%s' - Water balance vs overflows",
486+
paths$modelname)
482487
)
483488
484489
# statisch ins PDF (WICHTIG!)

0 commit comments

Comments
 (0)