Fixes #326 legend title use plot configuration for time profile plots (…

…#343)
Open-Systems-Pharmacology · Jul 22, 2022 · 25f8fa9 · 25f8fa9
1 parent 2828600
commit 25f8fa9
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/plot-timeprofile.R b/R/plot-timeprofile.R
@@ -328,6 +328,8 @@ updateTimeProfileLegend <- function(plotObject, caption) {
       ggplot2::guides(
         fill = "none", shape = "none", linetype = "none",
         color = ggplot2::guide_legend(
+          title = plotObject$plotConfiguration$legend$title$text,
+          title.theme = plotObject$plotConfiguration$legend$title$createPlotFont(),
           override.aes = list(fill = caption$fill, linetype = caption$linetype, shape = caption$shape)
         )
       )