add option for residual vs observed ddi ratio horizontal line (#194)

Open-Systems-Pharmacology · Nov 9, 2021 · aea83b9 · aea83b9
1 parent 29f2739
commit aea83b9
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/aaa-utilities.R b/R/aaa-utilities.R
@@ -135,7 +135,8 @@ parseAddLineLayer <- function(type, value, position) {
     switch(type,
       "horizontal" = paste0("ggplot2::geom_hline(yintercept = ", value, ","),
       "vertical" = paste0("ggplot2::geom_vline(xintercept = ", value, ","),
-      "diagonal" = paste0("ggplot2::geom_abline(slope=1, intercept = ", value, ",")
+      "diagonal" = paste0("ggplot2::geom_abline(slope=1, intercept = ", value, ","),
+      "ddiHorizontal" = paste0("ggplot2::geom_abline(slope=0, intercept = ", value, ",")
     ),
     "color=getAestheticValues(n=1,selectionKey=plotConfiguration$lines$color,position=", position, ',aesthetic="color"),',
     "linetype=getAestheticValues(n=1,selectionKey=plotConfiguration$lines$linetype,position=", position, ',aesthetic="linetype"),',

diff --git a/R/plot-ddiratio.R b/R/plot-ddiratio.R
@@ -33,9 +33,8 @@ plotDDIRatio <- function(data,
 
   lineOrientation <- "diagonal"
   if(residualsVsObserved){
-    lineOrientation <- "horizontal"
+    lineOrientation <- "ddiHorizontal"
   }
-
   # Include horizontal lines
   for (lineIndex in seq_along(dataMapping$lines)) {
     # position correspond to the number of layer lines already added