Values for LSL, USL, target labels and unit tests updates

jasp-stats · Oct 9, 2024 · 048443e · 048443e
1 parent 7d5018c
commit 048443e
Show file tree

Hide file tree

Showing 56 changed files with 335 additions and 334 deletions.
diff --git a/R/processCapabilityStudies.R b/R/processCapabilityStudies.R
@@ -743,18 +743,19 @@ processCapabilityStudies <- function(jaspResults, dataset, options) {
       colnames(specLimitsDf) <- c("label", "xIntercept", "lty", "yPosLabel", "color")
       yPosLabel <- max(ggplot2::layer_scales(p)$y$range$range)
       if (options[["target"]]) {
-        specLimitsDf <- rbind(specLimitsDf, data.frame(label = gettext("Target"), xIntercept = options[["targetValue"]],
-                                                       lty = "solid", yPosLabel = yPosLabel, color = "darkgreen"))
+        specLimitsDf <- rbind(specLimitsDf, data.frame(label = gettextf("Target = %g", round(options[["targetValue"]], .numDecimals)),
+                                                       xIntercept = options[["targetValue"]], lty = "solid", yPosLabel = yPosLabel,
+                                                       color = "darkgreen"))
       }
       if (options[["lowerSpecificationLimit"]]) {
         lslLty <- if (options[["lowerSpecificationLimitBoundary"]]) "solid" else "dotted"
-        lslLabel <- if (options[["lowerSpecificationLimitBoundary"]]) "LB" else "LSL"
+        lslLabel <- if (options[["lowerSpecificationLimitBoundary"]]) gettextf("LB = %g", round(options[["lowerSpecificationLimitValue"]], .numDecimals)) else gettextf("LSL = %g", round(options[["lowerSpecificationLimitValue"]], .numDecimals))
         specLimitsDf <- rbind(specLimitsDf, data.frame(label = lslLabel, xIntercept = options[["lowerSpecificationLimitValue"]],
                                                        lty = lslLty, yPosLabel = yPosLabel, color = "darkred"))
       }
       if (options[["upperSpecificationLimit"]]) {
         uslLty <- if (options[["upperSpecificationLimitBoundary"]]) "solid" else "dotted"
-        uslLabel <- if (options[["upperSpecificationLimitBoundary"]]) "UB" else "USL"
+        uslLabel <- if (options[["upperSpecificationLimitBoundary"]]) gettextf("UB = %g", round(options[["upperSpecificationLimitValue"]], .numDecimals)) else gettextf("USL = %g", round(options[["upperSpecificationLimitValue"]], .numDecimals))
         specLimitsDf <- rbind(specLimitsDf, data.frame(label = uslLabel, xIntercept = options[["upperSpecificationLimitValue"]],
                                                        lty = uslLty, yPosLabel = yPosLabel, color = "darkred"))
       }

diff --git a/...stthat/_snaps/processCapabilityStudies/capability-of-the-process1-subplot-1.svg b/...stthat/_snaps/processCapabilityStudies/capability-of-the-process1-subplot-1.svg
diff --git a/...tthat/_snaps/processCapabilityStudies/capability-of-the-process12-subplot-1.svg b/...tthat/_snaps/processCapabilityStudies/capability-of-the-process12-subplot-1.svg
diff --git a/...tthat/_snaps/processCapabilityStudies/capability-of-the-process12-subplot-2.svg b/...tthat/_snaps/processCapabilityStudies/capability-of-the-process12-subplot-2.svg