Fixes #1248 DDI plots are quadratic (#1255)

Open-Systems-Pharmacology · Jul 25, 2024 · e0a1b2f · e0a1b2f
1 parent 0c7c1f4
commit e0a1b2f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/utilities-plots.R b/R/utilities-plots.R
@@ -196,11 +196,11 @@ getPlotConfigurationFromPlan <- function(plotProperties, plotType = NULL, legend
   validateIsIncluded(values = legendPosition, parentValues = tlf::LegendPositions, nullAllowed = TRUE)
   plotConfiguration$legend$position <- legendPosition %||% reEnv$theme$background$legendPosition
 
-  # Quadratic dimensions for ObsVsPred plot type
+  # Quadratic dimensions for ObsVsPred, DDIRatio plot type
   # Note that other plots be could included in default quadratic plots
   defaultWidth <- reEnv$defaultPlotFormat$width
   defaultHeight <- reEnv$defaultPlotFormat$height
-  if (isIncluded(plotType, "ObsVsPred")) {
+  if (isIncluded(plotType, c("ObsVsPred", "DDIRatio"))) {
     defaultWidth <- mean(c(defaultWidth, defaultHeight))
     defaultHeight <- defaultWidth
   }